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ABSTRACT 


Data  acquisition  software  was  written  to  recover  the 
ability  to  make  loss  measurements  using  a  five-hole 
pneumatic  probe  in  a  wind  tunnel  facility  currently 
containing  a  modeled  subsonic  cascade  of  controlled 
diffusion  (CD)  stator  blades.  Acquisition,  reduction  and 
ancillary  programs  were  written  for  a  Hewlett  Packard  9000 
Series  300  computer/HP  3052  Data  Acquisition  System  in  HP 
BASIC  5.0.  The  new  software  was  demonstrated  and  validated 
by  conducting  a  set  of  surveys  at  the  (near  to  stall)  air 
inlet  flow  angle  of  48  degrees.  The  survey  results  showed 
a  diminishing  core  of  two-dimensional  flow  through  the 
blading  due  to  side  wall  boundary  layer  effects,  and 
integration  of  upstream  and  downstream  measurements  gave  an 
axial  velocity-density  ratio  of  1.108  and  a  NASA  loss 
coefficient  of  0.097.  Prior  to  the  surveys,  the  probe  was 
calibrated  in  a  free  jet  facility,  thus  also  revalidating 
the  calibration  software.  It  was  concluded  that  the 
facility  instrumentation  and  procedures  were  now  in  place 
for  making  accurate  off-design  loss  measurements  on  a 
routine  basis. 
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THESIS  DISCLAIMER 


The  reader  is  cautioned  that  computer  programs 
developed  in  this  research  may  not  have  been  exercised  for 
all  cases  of  interest.  While  every  effort  has  been  made, 
within  the  time  available,  to  ensure  that  the  programs  are 
free  of  computational  and  logic  errors,  they  cannot  be 
considered  validated.  Any  application  of  these  programs 
without  additional  verification  is  at  the  risk  of  the 
user . 
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INTRODUCTION 


Off-design  compressor  performance  is  becoming  more 
important  as  future  engine  design  goals  involve  higher 
thrust-to-weight  ratios,  lower  specific  fuel  consumption, 
and  smaller  size.  Currently,  great  demands  on  the  engine 
are  made  during  high  angle-of-attack  flight  by  fighter 
aircraft  and  by  VSTOL  and  rotorcraft  operating  in  flight 
conditions  that  greatly  distort  the  flow  to  the  compressor. 
Design  goals  and  extreme  operating  conditions  push  the 
compressor  operating  point  towards  the  stall  boundary. 
Thus,  it  is  vitally  important  to  have  methods  for 
predicting  stall  margin  in  the  process  of  design. 

The  modeling  of  compressor  flows  using  computational 
fluid  dynamic  (CFD)  codes  is  the  key  to  such  a  development, 
and  cascade  data  on  flow  structure  and  blade  element 
behavior  are  required  to  validate  the  codes.  While  flow 
structure  of  the  velocity  field  can  be  mapped  using  a  laser 
dopier  velocimeter  ( LDV )  system,  it  is  the  loss  coefficient 
(introduced  in  Chapter  VI  of  Ref.  1)  which  is  the  essential 
integral  measure  of  the  blade  element  performance.  The 
focus  of  the  present  work  was  to  recover  the  ability  to 
make  loss  measurements  using  a  pressure  probe  in  the  Naval 
Postgraduate  School's  (NPS)  cascade  facility. 

In  the  present  study,  the  cascade  was  configured  with 
the  mid  section  of  a  controlled  diffusion  (CD)  stator  blade 
designed  by  Sanger  (Ref.  2]  at  NASA  Lewis  Research  Center. 
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Previous  studies  using  CD  blading  in  this  facility  include 
the  work  of  Koyuncu  [Ref.  3],  who  conducted  fourteen  tests 
at  air  inlet  angles  from  24.3  degrees  to  47.2  degrees  to 
measure  blade  performance  using  pressure  probes.  Dreon 
[Ref.  4]  followed  with  probe  studies  at  air  inlet  angles  of 
40.3  degrees  and  43.4  degrees,  concentrating  on  verifying 
the  accuracy  of  the  loss  measurements.  Dreon's  work  is 
cited  frequently  throughout  the  present  report  since  much 
of  what  he  did,  in  principle,  was  used  to  guide  the  present 
work.  Elazar  [Ref.  5]  performed  detailed  measurements  of 
inviscid  flow  in  the  passage  between  two  adjacent  blades, 
the  boundary  layer  development  on  the  blade  surfaces  and 
the  early  wake  development  using  a  two-component  LDV 
system.  Baydar  [Ref.  6]  made  wake  measurements  using  hot 
wires  to  verify  the  LDV  wake  measurements  made  by  Elazar. 
In  these  earlier  studies,  the  cascade  flow  was  found  to  be 
acceptably  uniform  and  periodic  (each  blade  passage  the 
same),  and  showed  good  span-wise  independence.  Cascade 
flow  quality  was  initially  analyzed  by  NACA  [Ref.  7]  and 
first  addressed  at  NPS  by  Duval  [Ref.  8]. 

The  necessity  for  the  present  work  arose  when  an 
obsolete  and  unsupported  computer  was  replaced  by  a  Hewlett 
Packard  300  PC  in  an  upgrade  of  the  facility's  data 
acquisition  system.  Entirely  new  software  was  required  to 
be  written  (using  HP  BASIC  5.0)  to  replace  the  many 
previous  programs.  A  simple  translation  of  the  previous 
software  was  not  attempted  in  view  of  the  undocumented 
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modifications  generated  by  a  series  of  previous  investiga¬ 
tors.  The  new  software  is  described  fully  in  Appendix  B. 

Overall,  recovering  the  ability  to  make  loss  measure¬ 
ments  involved  first,  the  calibration  of  a  five-hole 
conical  pressure  probe  (Appendix  A),  second,  developing  the 
required  acquisition  and  reduction  software  and  third, 
obtaining  a  complete  set  of  preliminary  measurements  at  an 
air  inlet  angle  of  48  degrees  to  demonstrate  and  validate 
a' 1  aspects  of  the  procedure.  The  conclusion  of  the  study 
was  that  the  calibrated  probe  and  data  acquisition  system 
a--  indeed  operational,  and  ready  to  be  used  to  make 
surveys  and  joss  measurements  in  the  cascade. 

Section  IT  of  this  report  describes  the  experimental 
apparatus ,  namely  the  cascade  facility,  instrumentation  and 
tre  data  system.  Section  Ill  addresses  the  test 
conditions,  calibration,  procedures,  method  of  referencing, 
and  '.v..t :  i.reo  the  measurements  that  were  made.  The  results 
ar?  presented  and  discussed  in  Section  IV  followed  by 
conclusions  and  recommendations  in  Section  V.  Appendix  A 
certains  the  details  of  the  probe  calibration.  Appendix  B 
contains  a  complete  discripticn  of  the  new  software,  with 
listings  of  all  programs  and  samples  of  the  printed  output 
tables.  Appendix  B  is  intended  to  serve  as  a  description 
and  user  guide  to  the  software.  Finally,  Appendix  C 
cut: ires  procedures  for  referencing  the  probe  yaw  angle. 
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II.  EXPERIMENTAL  APPARATUS 

A.  CAS CAD L  WIND  TUNNEL 

The  NPGS  cascade  facility  is  shown  in  Fig.  1.  Figure  2 
shows  the  test  section.  A  detailed  description  of  the 
facility,  test  section  and  CD  blading  is  contained  in 
Ref.  9. 

B.  CONTROLLED  DIFFUSION  BLADING 

Reference  2  describes  the  CD  blading  in  derail.  A 
profile  of  blade  and  pressure  tap  locations  on  instrumented 
blades  are  shown  in  Fig.  3. 

0 .  I NS TRUMENTATI ON 

The  five-hole  conical  probe  used  and  described  by  Dreon 
[Ref.  41  was  calibrated  and  used  for  the  probe 
measurements.  Appendix  A  contains  the  calibration  details. 

The  iron-constantan  thermocouple,  plenum  pressure  probe 
and  instrumented  CD  blade  were  used  as  described  by  Dreon. 
Wall  static  pressure  was  measured  from  a  centrally  located 
tap  upstream  of  the  blades.  A  Prandtl  probe  was  installed 
approximately  midway  between  the  inlet  guide  vanes  and  the 
test  blading.  The  probe  was  located  at  mid  span  between 
blades  15  and  16,  well  clear  of  the  probe  survey  locations. 
The  Prandtl  probe  measurements  provided  an  additional 
measure  of  tunnel  conditions.  The  cone  probe,  plenum,  wall 
static  and  Prandtl  probe  pressures  were  connected  to  a  48- 
port  Scanivalve.  A  second  Scanivalve  sampled  pressures 
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from  the  fully  (blade  10)  and  one  partially  instrumented 
blade  (blade  11),  and  from  the  plenum. 

A  yaw  transducer  on  the  conical  probe,  linear  over  the 
range  used,  provided  the  means  to  record  inlet  and  outlet 
flow  angles. 

Probe  displacement  in  the  blade-to-blade  direction  was 
determined  by  a  turn  counter  on  the  motor-driven  traverse 
mechanism. 

Span-wise  displacement  was  recorded  manually  from  a 
vernier  scale  attached  to  the  probe. 

D.  DATA  ACQUISITION  SYSTEM 

1.  Hardware 

A  simplified  schematic  of  the  data  acquisition 
system  is  shown  in  Fig.  4. 

The  data  were  collected  using  the  Hewlett  Packard 
Data  Acquisition  System  (HP-3052)  with  instruments 
connected  through  an  Interface  Bus  (HP-98034,  HP-IB) .  The 
HG-7BK  Scanivalve  controller,  which  controlled  the 
selection  and  positioning  of  the  Scanivalves  is  described 
by  Geopfarth  (Ref.  10].  A  Hewlett  Packard  900  series  300 
computer  controlled  the  system.  The  instrumentation 

channel  assignments  are  given  in  Table  Bl. 

2.  Software 

Three  programs  comprise  the  data  acquisition 
software.  Program  "ACQUIRE”  controls  the  acquisition  and 
stores  the  collected  data.  Program  "CALC"  reduces  the  data 
to  commonly  used  engineering  quantities  and  "LOSS"  computes 
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the  static 


pressure  rise  coefficient,  axial  velocity 


density 

details 


ratio  ( AVDR )  and  loss  coefficient.  Software 
are  contained  in  Appendix  B. 
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Ill . 


TEST  PROCEDURES  AND  PROGRAM  OF 
MEASUREMENTS 

A.  TEST  PROCEDURES 

1.  Setting  Test  Conditions 

Murray  [Ref.  II],  in  a  recently  completed  study, 
set  the  wall  angle  to  48  degrees  for  LDV  measurements.  A 
complete  account  of  the  angle  setting  procedure  is  given  in 
Appendix  A,  Section  VI  of  Ref.  11.  All  tests  in  the 
present  study  were  conducted  at  a  wall  angle  setting  of  48 
degrees  and  an  inlet  dynamic  pressure  (Q)  of  17"  H20. 
Atmospheric  pressure  was  taken  to  be  constant  over  the 
survey  period  of  approximately  two  hours. 

2.  Calibration 

The  Scanivaives  were  calibrated  prior  to  each  test 
using  shop  air  and  a  water  manometer.  The  probe  yaw 
transducer  was  scaled  at  two  limiting  settings  prior  to 
each  test,  having  been  shown  previously  to  be  linear  to 
within  0.2  degrees — the  resolution  of  the  yaw  vernier  scale 
on  the  probe. 

3.  Referencing 

Pressure  and  velocity  values  obtained  by  reducing 
probe  test  data  at  each  probe  position  were  referenced  to 
the  tunnel  conditions  at  the  time  of  the  recording.  This 
eliminated  the  effects  that  small  changes  in  the  tunnel 
supply  condi.  ons  might  have  had  on  the  calculation  of  the 
loss  coefficient. 
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A  .  .  Data  Points 

The  probe  surveys  consisted  of  a  series  of 
individual  measurements  at  intervals  ranging  from  . 05  -  .5 
inches.  At  each  interval,  the  probe  was  balanced  in  yaw 
(Appendix  A)  and  measurements  taken — defining  a  data  point. 
The  data  collected  were  reduced  using  the  equations  given 
in  Table  I. 

B.  PROGRAM  OF  MEASUREMENTS 

A  summary  cf  the  probe  surveys  conducted  in  the  present 
study  is  contained  in  Table  II.  First,  a  set  of  probe 
surveys  was  conducted  to  establish  the  flow  quality  into 
the  cascade  test  section.  Second,  an  inlet  survey  in  the 
blade-tc-biade  direction  was  conducted  to  examine  inlet 
uniformity.  Span-wise  surveys  upstream  and  downstream  of 
the  blades  were  then  made  to  examine  two-dimensionality. 
Finally,  detailed  blade-to-blade ,  mid-span  surveys  over  one 
blade  passage  were  made  upstream  and  downstream  in  order  to 
compute  the  loss  coefficient. 

Upstream  and  downstream  surveys  were  made  at  the 
traverse  locations  indicated  in  Fig.  2.  Intervals  between 
data  points  were  decreased  when  a  change  in  flow  conditions 
was  evident.  Downstream  span-wise  surveys  were  located 
+  1.2  inches  from  a  vertical  extension  of  the  trailing  edge 
of  blade  9.  Surface  tap  pressures  were  recorded  from  the 
instrumented  blade  after  the  last  probe  data  point  was 
recorded  for  the  upstream  blade-to-blade  survey. 
Additionally,  pressures  were  recorded  from  the  partially 
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TABLE  I 


DATA  REDUCTION  FORMULAE 


PARAMETER  EXPRESSION 


T 


p. 

p«  (1 

V 

1 

X|2«jTpJ  * 

Q 

/  J 

P*(r') X*  (ixa,r‘ 

A 

Pp 

i  x,«v 

■«t 

A 

TP 

i  * 

~  Z  T, 

"  Zv  9 

Xref 

/p  \-ti  * 

l’(f:)  ■] 

V,ef  « 


Qref  W«V)N 


A  *  •  .1 

Vref  W*'»V » 


PROGRAMMED  EXPRESSION 


same 


lame 


1 

x[2cPaiW2.ni)Ttil 


same 


same 


same 


eame 


X 

Xr«f|2^  (778X32.174)  Tf|  * 


same 


eame 


12  <*(778X32  179) 


1 

1 
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TABLE  I.  DATA  REDUCTION  FORMULAE  (CONT.) 


PARAMETER 


EXPRESSION 


PROGRAMMED  EXPRESSION 


A 

Qref 


K 


♦AVDR 


A  /  *  \  A  A  JL 


in 

*»I 


li  JL 

r,  xrrf 


i-X?  |rl 


cosp 


0 _ 

J  ’  K,  ix 


Cpt 

CF. 


P. 


It 

P. 


same 


CD 


(%-% ) 

iW 


/"  cP|j  Ki •**  •  avdr  C^Kld* 


f  CPl  Ki  d*  -  j*Cp  K, d* 
b  ‘i  o  n 


,  .  /’flJilt.d,  fiVFj  M, 

/n-r.\  »  g  *,09 

\pr-*v  f.  {» 

J  K,d«  J  K,di 


CPl 


j> _ a 


o _ Q 


/'  K,d*  J*  K,  di 


*  Derivation  given  In  Ref.  S 
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TABLE  II 


PROBE  SURVEYS 


SURVEY  i 

LOCATION 

DIRECTION 
( Length) 

NOMINAL 
INTERVAL ( in. ) 

1 

UPSTREAM 

BLADE-TO-BLADE 
(20  Blade  Spaces) 

.  5 

2 

UPSTREAM 

SPAN-WISE 

.05  -  .1 

% 

DOWNSTREAM 
( Pressure 
Side,  1.2") 

SPAN-WISE 

.05  -  .1 

A 

‘1 

DOWNSTREAM 
( Suction 
Side,  1.2"; 

SPAN-WISE 

.  0  'Zj  —  .1 

t-. 

UPSTREAM 

BLADE-TO-BLADE 
(1  Blade  Space) 

.1 

tr. 

DOWNSTREAM 

BLADE-TO-BLADE 
(1  Blade  Space;- 

.05  -  .1 
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instrumented  blade  to  aid  in  establishing  periodicity. 
Three  data  points  were  collected  from  the  suction  side  and 
two  from  the  pressure  side.  Further,  a  trailing  edge  tap 
on  this  blade  provided  base  pressure. 
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IV.  RESULTS  AND  DISCUSSION 


A.  FLOW  FIELD 

The  probe  surveys  were  considered  to  be  preliminary  and 
were  conducted  primarily  to  demonstrate  and  validate  the 
new  data  acquisition  software.  The  results  were  interest¬ 
ing,  however,  since  they  were  the  first  to  be  obtained  at 
an  inlet  angle  of  48  degrees  with  the  CD  blading.  Survey 
results  are  presented  in  Figs.  5-22  and  tabulations  of  the 
detailed  blade-to-blade  and  instrumented  blade  data  are 
given  in  Appendix  B,  Tables  B2  -  B7. 

1.  Inlet  Flow  Field 

The  inlet  flow  field  was  seen  to  be  acceptably 
uniform.  Deviations  from  a  fully  uniform  velocity  were  due 
to  inlet  guide  vane  wakes  and  non-uniformity  in  vane 
geometry.  A  non-uniform  migration  of  the  guide  vane  wakes 
is  thought:  to  explain  the  irregular  profile  of  the  inlet 
flow  angle  across  the  span,  seen  in  Fig.  10. 

2_. _ Two-Dimensionality  and  Periodicity 

Downstream  span-wise  surveys,  located  one  inch  to 
both  the  pressure  and  suction  sides  of  the  blade,  show  a 
diminishing  core  of  two-dimensional  flow.  This  was  the 
result  of  side-wall  boundary  layer  build-up  through  the 
test  section.  Flow  properties  were  independent  of  span 
only  over  a  limited  displacement  to  the  pressure  side  of 
the  blade.  The  significant  difference  between  the  pressure 
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and  suction  side  span-wise  profiles  was  due,  in  part,  to 
the  probe  being  in  the  blade  wake  on  the  suction  side. 

Periodicity  cannot  be  shown  with  results  obtained  over 
only  one  blade  passage.  However,  the  first  and  last  points 
in  the  downstream  survey  over  one  blade  passage  in  Fig.  20 
can  be  seen  to  be  in  good  agreement,  which  is  required  if 
the  flow  is  truly  periodic  over  successive  passages.  The 
degree  to  which  periodicity  was  manifested  was  also  seen  in 
Fig.  23.  Three  values  of  the  coefficient  of  pressure  for 
the  partially  instrumented  blade  are  shown  plotted  with  the 
distribution  of  values  for  the  fully  instrumented  blade. 
Values  for  two  other  taps,  towards  the  leading  and  trailing 
edge  on  the  suction  surface,  were  omitted  due  to  partial 
blockage  of  the  pneumatic  lines  leading  from  these  taps  to 
the  Scanivaive;  otherwise,  good  agreement  was  noted. 

B .  BLADE  ELEMENT  PERFORMANCE 

In  the  distribution  of  pressure  shown  in  Fig.  23,  a 
strong  adverse  pressure  gradient  is  clearly  indicated  over 
the  first  ten  percent  of  the  blade  chord  on  the  suction 
side.  The  profile  was  similar  in  shape  to  those  recorded 
in  Dreon's  [Ref.  4}  and  Elazar's  [Ref.  5]  work  at  inlet 

'V 

angles  of  43.7  degrees  and  46  degrees  respectively.  It  is 
noted  that  the  trailing  edge  (base)  pressure  on  the 
partially  instrumented  blade  gave  Cp  =  0.253. 

From  an  integration  of  the  data  obtained  in  surveys  5 
and  6  (Table  II)  using  program  "LOSS"  (Appendix  B),  the 
AVDR  was  calculated  to  be  1.108  and  the  loss  coefficient 
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was  0.097.  The  loss  coefficient  value  is  shown  plotted  in 
Fig.  24  where  it  can  be  seen  in  relation  to  Dreon's  and 
Koyuncu's  [Ref.  3]  losses. 

C.  MEASUREMENT  UNCERTAINTIES 

All  measurement  uncertainties  listed  in  Table  I  of  Ref. 
4  were  the  same  for  the  present  study  except  those  for  the 
inlet  and  outlet  flow  angles.  The  absolute  values  of  the 
flow  angle  for  the  present  data  were  not  known  to  better 
than  an  uncertainty  +  2  degrees.  The  means  to  establish  a 
pneumatic  axis  referenced  to  a  precisely  measured 
horizontal  or  vertical  axis  on  the  cascade  was  not 
available  at  the  time  of  the  measurements.  The  probe  yaw 
angle  readout  was  set  to  zero  when  the  probe  tip  was  judged 
to  be  pointing  vertically  downward.  The  inlet  angle  was 
subsequently  observed  to  indicate  approximately  48  degrees 
at  the  inlet  station,  consistent  with  Murray's  [Ref.  11] 
observations.  The  yaw  angles  recorded  during  the  tests 
were  uncertain  on  an  absolute  basis;  however,  the  relative 
flow  angles  recorded  from  the  yaw  transducer  during  the 
surveys  were  accurate  to  within  0.2  degrees. 

The  proposed  method  for  obtaining  absolute  accuracy  in 
the  yaw  angle  measurements,  using  the  optical  accuracy  of 
the  LDV  system  for  referencing,  is  given  in  Appendix  C. 

D.  TABULATED  AND  PLOTTED  QUANTITIES 

The  data  from  surveys  5  and  6  (Table  II)  are  shown  in 
Tables  B2  -  B5.  The  tables  include  values  of  the 
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Scanivalve  gauge  pressures,  yaw  transducer  reading,  plenum 
temperature  (total  temperature)  and  atmospheric  pressure. 
Pressures  are  given  in  inches  of  water.  Table  B1  will  aid 
in  interpreting  the  scaled  probe  data. 

Appendix  B  defines  and  describes  the  quantities  Beta, 
Gamma  and  Phi  which  are  listed  in  Tables  B3  and  B5.  The 
ensemble  averages  given  at  the  end  of  Tables  B3  and  B5 
represent  the  nominal  (ensemble  averaged)  test  conditions 
for  the  survey.  All  other  quantities  can  be  interpreted 
using  the  List  of  Symbols  and  Table  I. 
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i  a  J  A/  I  A 


Vl/Vref  VS  PROBE  D I SPLRCEMENT 


Figure  5.  Inlet  Survey:  Vl/Vref  vs.  Probe 
Displacement,  Blade-to-Blade 


2 


Pref-Ptl/Qref  VS  PROBE  DISPLACEMENT 


BLRDEZ  — TO  — BLRDE  (in) 


Figure  6.  Inlet  Survey:  Pref-Ptl/Qref  vs. 
Probe  Displacement,  Blade-to-Blade 


BETR1  (deg) 


BETA1  VS  PROBE  DISPLACEMENT 


BLRDE-TO-BLRDE  C  i  n  ? 


Figure  7.  Inlet  Survey:  Betal  vs.  Probe 
Displacement,  Blade-to-Blade 
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Vl/Vref 


Figure  8.  Inlet  Survey:  Vl/Vref  vs.  Probe 
Displacement,  Spanwise 


2 


Pref-Pt ] / Q ref 


BETR1  VS  PROBE  DISPLACEMENT 


-5  -4  -J  -2  -I  B  I  J  3  4  5 

SPRN  (in) 


Figure  10.  Inlet  Survey:  Betal  vs.  Probe 
Displacement,  Spanwise 
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V2  /V  ref 


V2/Vref  VS  PROBE  DISPLACEMENT 


SPAN  (  f  n  ) 


Figure  11.  Outlet  Survey:  V2/Vref  vs.  Probe 
Displacement,  Spanwise  (Pressure  Side) 


BETR 


BETR2  VS  PROBE  D I SPLRCEMENT 

a  a 
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Figure  13.  Outlet  Survey:  Beta2  vs.  Probe 
Displacement,  Spanwise  (Pressure  Side) 
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V2/Vref  VS  PROBE  DISPLACEMENT 


SPRH  (in) 


Figure  14.  Outlet  Survey:  V2/Vref  vs.  Probe 
Displacement,  Spanwise  (Suction  Side) 


Pref— Pt2 / 0  r  e  f 


Pref-Pt2/Qref  VS  PROBE  D I SPLRCEMEN T 
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Figure  15.  Outlet  Survey:  Pref-Pt2/Qref  vs.  Probe 
Displacement,  Spanwise  (Suction  Side) 
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-5-4-1-2-19  I  2  a  4  5 


SPAN  C  1  r>  } 


Figure  16.  Outlet  Survey:  Beta2  vs.  Probe 
Displacement  Spanwise  (Suction  Side) 
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Figure  17.  Loss  Survey:  Vl/Vref  vs.  Probe 
Displacement,  Blade-to-Blade 


Pref-Pt 1 '  Or  ef 


Prof-Ptl^Qref  V5  PROBE  DISPLHCEMENT 


«  .5  l  l.i  2  2.5  3 

BLRDE~TO-BLRDE  C  i  n  > 


Figure  18.  Loss  Survey:  Pref-Ptl/Qref  vs.  Probe 
Displacement,  Blade-to-Blade 
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BET  1=1 1  Zdeg 


BETR1  V5  PROBE  DISPLACEMENT 
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BLRDE  — TO— BLRDE  (In) 


Figure  19.  Loss  Survey:  Betal  vs.  Probe 
Displacement,  Blade-to-Blade 
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''Vr  e  f 


V2/Vref  VS  PROBE  D I SPLRCEMEN T 


Figure  20.  Loss  Survey:  V2/Vref  vs.  Probe 
Displacement,  Blade-to-Blade 
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Pref -Pt  2 /Qr  e  f 


Pref-Pt2/Qref  VS  PROBE  D I SPLRCEMEN T 


Figure  21.  Loss  Survey:  Pref-Pt2/Qref  vs.  Probe 
Displacement,  Blade-to-Blade 


BETR2  (deg) 


BETR2  VS  PROBE  D1  SPLRCEMENT 


Figure  22.  Loss  Survey:  Beta2  vs.  Probe 
Displacement,  Blade- to-Blade 
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oro 


^UO|3|JJOCO  BBUl 

Figure  24.  Loss  Coefficient  vs.  Inlet 
Air  Angle 
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V.  CONCLUSIONS  AND  RECOMMENDATIONS 

Preliminary  probe  surveys  were  conducted  at  an  inlet 
flow  angle  of  48  degrees  using  data  acquisition  software 
specifically  written  for  the  Hewlett  Packard  300  PC  and 
associated  acquisition  hardware.  From  the  study,  the 
following  conclusions  were  drawn: 

1.  At  an  inlet  flow  angle  of  48  degrees,  there  was  a 
vanishing  core  of  two-dimensional  flow  at  the 
downstream  survey  station. 

2 .  Tne  olade-element  performance  quantities  derived 
from  the  measurements  were  consistent  with  previous 
results  at  lower  angle  settings. 

3.  Software  for  calibrating  five-hole  pneumatic  probes 
was  revalidated  and  made  available  for  use. 

4.  New  software,  for  acquiring  and  reducing  probe 
survey  data  to  obtain  the  AVDR  and  loss  coefficient, 
was  written  and  verified. 

5.  The  facility,  instrumentation  and  procedures  are 
available  for  making  accurate  off-design  loss 
measurements  on  a  routine  basis. 

Recommendations  focus  on  improving  results  which  can  be 
obtained  using  pressure  probe  surveys  in  this  facility. 
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are  given 


Recommendations  concerning  the  software 
eparately  in  Appendix  B.)  The  recommendations  are: 

1.  Make  probe  surveys  closer  to  the  trailing  edge  of 
the  blade  to  reduce  the  effects  of  side-wall  boundary 
layer  buildup  on  the  two-dimensionality  of  the  flow. 

2.  Redesign  the  front  wall  of  the  cascade  tunnel  to  be 
made  of  lighter  materials  and  of  modular  construction. 
The  present  facility  requires  a  high  capacity  overhead 
heist  to  remove  the  wall  to  modify  the  cascade 
geometry.  The  modular  construction  would  provide  the 
means  to  expand  the  coverage  of  pneumatic  and  hot-wire 
probe  surveys  without  sacrificing  the  q-ality  of  the 
flow  through  the  test  section.  A  design  with 
interchangeable  window  and  survey  panels  would  provide 
greater  access  for  the  LDV . 

Breen's  [Ref.  4]  recommendations  concerning 
calibrating  the  probe  in  yaw  and  automating  the  probe 
traverses  are  reiterated. 

4.  Incorporate  the  use  of  highly  accurate  linear 
variable  displacement  transducers  ( LVDT )  in 
implementing  item  3. 

5.  Consideration  should  be  given  to  using  two  probes 
simultaneously  to  conduct  the  survey  (the  software  has 
this  provision)  to  avoid  the  danger  of  damaging  the 
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probe  during  transfer  to  and  frorr.  the  upper  and  lower 
traverse  slots. 

6.  Use  the  LDV  system  to  obtain  an  accurate  probe 
angle  reference  as  shown  in  Appendix  C. 

7.  At  the  present  and  any  higher  inlet  angle  settings, 
fully  map  the  downstream  flow  field  to  better  establish 
flow  quality  and  degree  of  two-dimensionality. 

H .  Extend  the  blade-to-fciade  surveys  to  conclusively 
establish  periodicity. 

7.  Employ  the  cascade's  boundary  layer  suction 
provision  to  extend  the  range  of  two-dimensional  flow 
at  high  inlet  flow  angles. 
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APPENDIX  A 


PROBE  CALIBRATION 


A1 .  INTRODUCTION 

A  five-hole  conical  probe  was  calibrated  in  a  7"  free 
jet  facility.  The  calibration  process  involved  acquiring 
the  data  necessary  to  calculate  the  probe  coef f icients , 
beta  and  gamma,  for  various  probe  pitch  angles  and  free  jet 
flow  velocities.  Beta  and  gamma  can  be  shown  (Appendix  A, 
Ref.  12;  to  be  functions  of  Mach  number  and  pitch  angle 
phi)  when  the  probe  is  balanced  (no  yaw).  The  values  of 
beta  and  gamma  over  the  range  of  flow  velocities  and  pitch 
angles  tested  are,  in  turn,  used  to  determine  a  set  of 
probe  calibration  coefficients  for  polynomial  expressions 
for  Mach  number  and  phi  in  terms  of  beta  and  gamma  [Ref. 
12 ].  From  the  polynomial  expressions,  the  Mach  number  and 
pitch  angle  can  be  determined  when  the  five-hole  pneumatic 
probe  is  immersed  and  balanced  in  an  unknown  flow. 

In  the  reduction  program  "CALC"  [Appendix  B , .  bet3  and 
gamma  are  calculated  from  the  pressures  sensed  by  the 
probe.  The  files  containing  the  probe  calibration 

coefficients  are  accessed  by  "CALC"  and  the  coefficients 
are  made  available  to  the  subprogram  Xphicalc  where  the 
non-dimensional  velocity  X  and  pitch  angle  phi  are 
calculated.  The  relation  between  X,  Mach  number  and  other 
quantities  involved  in  the  calculation  of  the  loss 
coefficient  can  be  seen  in  Table  I. 
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Section  A2  describes  the  calibration  apparatus.  The 
calibration  test  program  is  addressed  in  Section  A3. 
Results  and  discussion  in  Section  A4  are  followed  by 
Recommendations  in  Section  A5.  Tables  of  data  produced 
during  the  calibration  of  the  cone  probe  used  in  the 
present  study  are  contained  in  Section  A6. 

The  following  is  a  list  of  symbols  used  in  Appendix  A: 


PA 

Atmospheric  Pressure 

PK 

Total  pressure  as  sensed 

by  the  Kiel  probe. 

PI  -  P5 

Probe  pressure  parts  as 

shown  in  Fig.  A2. 

P23 

(P2  +  P3)/2 

A2 .  PROBE  CALIBRATION  APPARATUS 

A2.1  Hardware 

An  illustration  of  the  probe  calibration  apparatus  and 
picture  of  the  probe  are  shown  in  Fig.  A1  and  Fig.  A2 
respectively.  The  probe  port  numbering  is  also  shown  in 
Fig.  A2 .  The  7  inch  diameter  free  jet  receives  air  from 
the  Allis  Chalmers  compressor.  Flow  rate  is  controlled  by 
a  hand  operated  valve  near  the  free  jet  attachment  to  the 
settling  chamber.  Honeycomb  flow  straighteners  remove 
swirl  and  the  nozzle  acceleration  generates  a  nearly 
uniform  velocity  profile  at  the  probe. 

A  United  Sensor  5-hole  conical  probe,  #DC-125-24-F- 
22-065-4"  was  mounted  vertically  on  top  of  the  free  jet 
frame.  A  special  mount  allowed  the  probe  to  be  yawed, 
pitched  and  translated  i.e.,  the  immersion  distance 
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Figure  Al.  Probe  Calibration  Apparatus 
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THERMOCOUPLE 


!# mm 


Five-Hole  Conical  Probe 
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could  be  varied.  In  this  case,  the  immersion  distance  was 
fixed  to  read  7.1  on  the  vernier,  allowing  the  probe  to  be 
rotated  about  its  tip. 

A  combination  Kiel  and  thermocouple  probe  was  mounted 
horizontally  and  positioned  into  the  flow  to  read  total 
pressure  and  temperature. 

Two  water  manometers  were  mounted  next  to  the  free 
jet.  Pressures  from  conical  probe  ports  2  &  3  were  fed  to 
each  side  of  one  manometer,  thus  allowing  the  probe  to  be 
balanced  in  yaw.  Total  pressure  as  sensed  by  the  Kiel 
probe  (PK)  was  fed  to  the  other  manometer  to  allow  the 
total  flow  of  the  free  jet  to  be  adjusted  and  monitored. 

A  Scanivalve  rated  at  2.5  psid  sampled  the  conical 
probe  pressures  in  addition  to  the  Kiel  probe  and 
atmospheric  pressures.  A  scanner,  Scanivalve  controller, 
and  digital  voltmeter  ( DVM)  were  used  in  conjunction  with 
the  Scanivalve  to  convert  the  pressures  to  digital  form  for 
subsequent  storage  and  reduction. 

Data  acquisition  software  was  run  on  the  Hewlett 
Packard  9830  computer  and  associated  peripheral  components. 
The  HP  9830  system  primarily  was  used  to  record,  store,  and 
reduce  the  Scanivalve  and  thermocouple  output  while  the  HP 
21MX  system  performed  the  calculations  to  generate  the 
probe  calibration  coefficients. 

A2.2  Software 

The  primary  acquisition  program  was  PRBCAL.  Entries 
consisted  of  atmospheric  pressure  in  inches  Hg,  number  of 
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separate  probe  pitch  angles  (maximum  of  12),  Scanivalve 
number,  temperature  channel  and  number  of  samples  to 
average  (normally  five).  The  program  acquired  the  data  for 
each  probe  pitch  setting,  then  stopped  to  allow  the  user  to 
change  the  pitch  setting  and  balance  the  probe  before  data 
was  again  acquired.  After  all  pitch  settings  had  been 
sampled,  the  program  prompted  the  user  for  a  six  element 
alphanumeric  file  name  for  the  data  to  be  stored.  This 
file  had  to  be  opened  prior  to  running  PRBCAL.  After  the 
file  name  was  entered  in  response  to  the  prompt,  the 
reduced  data  was  printed  in  the  form  of  Tables  A1  -  A3. 

The  program  PRBRED  generated  probe  coefficients  and 
other  parameters  from  the  PRBCAL  data  files.  PRBRED,  used 
in  conjunction  with  the  "KEY”  program  PLOTK ,  allowed  probe 
coefficients  to  be  plotted  against  pitch  angles.  The  PLOTK 
program  required  some  familiarity  with  Hewlett  Packard 
plotting  procedures. 

CALI2  provided  the  means  to  transfer  data  files  from 
the  HP  9830  system  to  the  HP  21MX  system.  This  was 
required  since  the  9830  system  does  not  have  the  capability 
to  generate  the  calibration  coefficients.  PRBCAL,  PRBRED, 
PLOTK  if  CALI 2  were  on  disc  SHREEVE  P007. 

A  data  transfer  program,  also  named  CALI2,  was  loaded 
and  run  on  the  HP  21MX  when  CALI2  was  run  on  the  HP  9830. 
The  raw  data  files  were  transferred  and  probe  calibration 
quantities  were  calculated  by  the  HP  21MX  programs  as  shown 
in  Tables  A4  and  A5.  The  program  JOHN 3  combined  the 
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TABLE  Al.  TABULATED  SCALED  DATA  OUTPUT  BY 
PRBCAL  (DATAFILES  CV  =  100;  CV  =  150) 


FHI4  HftT R  HITH  VOLTAGE  CORRECTED  TO  PRESSURES*:  III.  H20> 


PA-PA 

PCAL-PA** 

P 1  -PA 

F23-PA 

F4-PA 

F'5-F'A 

PK-FA 

*  * 

PHI 

-0.0040 

34.518 

44 

2.4020 

-9. 1630 

C . 2420 

-0.474O 

2.  336 

*JL 

-fz< ,  y 

-0. 0240 

34.458 

*4 

2.4120 

-0. 1430 

0. 1180 

-0.338O 

2.34" 

*  4 

-4 .  o 

-0.040O 

-O.043 

44 

2. 'SGO 

-0. 1270 

0.082? 

-6. 3580 

2 . 3 ' 6 

44 

-3.0 

—  0 . 0240 

-0.030 

** 

2 . 33  '0 

-0. 1270 

O.O540 

-0.3180 

2.  :»54 

T  X 

•  n 

-0.0520 

-0.044 

** 

2-3130 

-0. 1180 

0.012g) 

-0.2500 

2 . 326 

-1.0 

-6.03*50 

-0.036 

44 

2.3020 

-0.124O 

-O.0320 

-0. 2180 

2  342 

k  > 

0.0 

-0.0440 

-0.053 

4* 

2.2280 

-0. 1380 

-0. 1266 

-0.1980 

2.  306 

1 . 0 

-6. 0500 

-0.020 

4# 

2. 3280 

-0. 1160 

-0.1140 

-0. 1220 

2.  338 

2.0 

-0.0340 

-0.054 

44 

2.2380 

-0. 1270 

-O. 1720 

-0.0380 

2.318 

X 

3  O 

-O. 0480 

-0.050 

44 

2.3180 

-0. 1230 

-O. 23f 0 

-O.0260 

2.  320 

4  JR 

4-9 

-O.0420 

-0.046 

44 

2.2360 

-0. 1100 

-0.2560 

0.0200 

2.3*1 

•'  - 

6.  0 

ATMOS.  PRESS.  <IH.HG>  TEMPERATURE  <F> 


30.  06 

38.61 

30. 06 

33.43 

30.06 

100.07 

30.  06 

100.58 

30.06 

100.32 

30.06 

101.2? 

30.06 

101.32 

3O.06 

101.60 

3O.06 

101.76 

3O.06 

101.33 

3O.06 

102.27 

Dm  I A  STORED  IU  CV=100 

RAH  DATA  HITH  VOLTAGE  CORREC  '  ED  TO  PRESSURES*;  IH.  H20 


r-A  -F  A 

PCAL-FA 

*> 

PI -PA 

P23-PA 

F  T -PA 

P5-FA 

n -pa 

44 

PHI 

O.O540 

32.300 

■  * 

5.3300 

-0. 3430 

0.5460 

-1 . 0200 

5.326 

44 

-6.0 

.0  0200 

32. 324 

*  4 

5.3360 

-0. 3010 

D. 3300 

-0.  .3^.10 

5. 284 

44 

-4.0 

i .  'V  60 

-O.032 

*  4 

5.2'540 

-0.2820 

0.  1 766 

-  *.8»IS 

5  2  °  2 

4  ♦ 

-  3 . 0 

-0. 0.>'0 

-0.0i2 

** 

5. 2530 

-0. 2680 

0.  10411 

••O.6380 

5.320 

44 

-2.0 

-0. 0040 

-0. 010 

4  fi 

5.2560 

-0. 2630 

0, 0100 

-0. 6220 

5.  292 

4  4 

-1.0 

-O.036O 

-0.828 

4  4 

5.2520 

-0.2480 

-0.0320 

-  0. 5320 

5.  3 06 

*  x 

0.  (.1 

-O.O60O 

-0.07? 

*  4 

5.2340 

-0.2330 

-0. 1640 

-0.4160 

5  •  314 

'*  - 

i  .0 

-0. 0640 

-0.066 

*  4 

5.2740 

-0.2270 

-0.238D 

-O. 2320 

5.  338 

1  4 

2.0 

-  0. 0300 

-0. 086 

*  4 

5.2340 

-0.2120 

-0.3200 

- O. 1340 

5.  84*. 

•  * 

3. fl 

-0. 0740 

-0.O64 

4> 

5.2260 

-0.2410 

-0.4380 

•O. 114" 

5.276 

4  4 

4 .  O 

-0. 1000 

-0. 038 

x  * 

5.2560 

-0.2630 

-O. 60OC 

3. 1O60 

5.  332 

6 .  O 

A I  MUS .  (RESS.  <  ’.U.HG> 


TEMPERATURE  <F> 


30.  0? 

109.50 

30. 08 

109.70 

30.0? 

103.70 

30.  09 

109.73 

30.03 

109.70 

30.03 

109.77 

30.09 

109.70 

30.09 

109.77 

30.0? 

109.80 

30.  0? 

109.77 

30.0? 

109.84 

DATA  STORED  IH  CV=lSo 
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TABLE  A2.  TABULATED  SCALED  DATA  OUTPUT  BY 
PRBCAL  (DATA  FILES  CV  -  200,  CV  -  250) 


pm.j  pflTfl  WITH  VOLTAGE  CORRECTED  TO  PRESSURES'.  IN.  H20i  > 


PR-FM 

0.0100 

-0.0160 

-0.O520 

-O.0700 

0.O4CO 

-"0^160 
-0.0200 
-0.0380 
-O.0320 
-0.0300 


FCAL-PA** 
0.014  ** 
-0.014  ** 
-0.062  ** 
-0.07O  ** 
-0.830  *« 

^702^** 
-0.024  ** 
-0.044  ** 
-0.032  ** 
-0.024  ** 


HT  it  os. 


PRESS. 
30.10 
30.  lO 
30.  10 
30.  lO 

30.  10 
30.  10 
30.  10 
30.  10 
30.10 
30.10 
38.  10 


(IN. HG) 


PI -PA 
9. 1660 
9.2660 
9.2540 
9.3000 
^3100 

973080 

9.2560 

9.2940 

9.2140 

9.2360 


F23-PA 

-0.636O 

-0.5700 

-0.5410 

-0. 5010 

-0^4610 

-0.4690 
-0.453O 
-0. 4670 
-0.519O 


TEMPERATURE 

103.45 

108.38 

108.24 

108.34 
108.55 

103.75 

105. 72 

108.72 

183.75 

108.35 
108.99 


<  F  > 


F4-PA 
0.95f.  3 
0. 568.10 
0.3980 
8.  17.3'.' 
0.  QUO-:! 

-e.  342>: 
-0.486O 
-0.62C0 
-0.7720 
-1.1  OOP* 


P5-PA 

-1.850O 

-1.56O0 

-1.4320 

-1.2740 

■1.0940 

-0.782O 
-8.6080 
-0.433O 
-O.2440 
0. 1280 


Ft' -FA  ** 
9.350  ** 
9.364  ** 
9.348  ** 
9.380  ** 
9.  372  ** 

9.352  ** 
•a .  ?,44  ** 
9.364  ** 
9.326  ** 
9.334  ** 


IifU A  STORED  IN  CV  =  200 

RAM  DATA  WITH  VOLTAGE  CORRECTED  TO  PRES SUREST  I1  I  H20  ' 


PH- PM 

PC  ML -FA** 

PI -PA 

P23-PA 

P4-PA 

F5-FA 

FT  -F  M 

♦  *■ 

0. 1O40 

’2. 780 

** 

14.4320 

-1.1430 

.  1.  |  5®® 

-3. 1100 

1 4.5 56 

X  X 

-  0. 3  TOO 

32.978 

*  X 

14.6340 

-0.8610 

0.8980 

-8.5020 

14.658 

X  * 

-  (j.  0  160 

32. 970 

** 

14.5830 

-0.8090 

O.  6  1  F  *•*. 

-2.2320 

1 4 . 660 

i  * 

0 .  0  )  6  A 

32. 334 

** 

14.7120 

-O. 7780 

0.1 3  ■ 

-I.9940 

14.633 

'*■  X 

-0 . 0  1  40 

3  2 . 6-43 

** 

14.6840 

-0.763O 

0 . 03?:i ; 

-1 . 7480 

14.644 

X  * 

- O. O320 

-O.024 

X  * 

14.6080 

-0. 7250 

“0.  2261' 

-1 . 4880 

14.764 

-  0 .  0  6  2  0 

-0.050 

14.6960 

-0. 6750 

-0. 45‘  n 

-1.2160 

14.732 

X  X 

-ft .  2620 

-0.258 

** 

14.7620 

-0.4910 

-c  .  4 

•0. 780O 

14.830 

X  * 

-0 . 0400 

-0.050 

** 

14.5188 

-0. 7320 

-1.0  ?4t  , 

- O. 7520 

14.622 

*  * 

-0 .0720 

-O.060 

*  * 

14.5300 

-0. 7760 

-1 .29S" 

-0.4720 

1  4 . 634 

X  X 

-A. 0580 

-n.056 

** 

14.6380 

-0.8830 

“1 .9164' 

0.0960 

14.750 

X  X 

ATMOS.  PRESS.  ' IU.HG'  TEMPERATURE  <T' 


30. 

1 1 

107. 

26 

30. 

107. 

12 

30. 

1 1 

107. 

12 

■•0. 

1 1 

107. 

12 

30. 

1 1 

107. 

09 

30. 

1 1 

107. 

19 

30. 

1 1 

107. 

26 

JO 

107. 

26 

3® 

•1 1 

107. 

29 

39. 

107. 

16 

30 

107. 

33 

DM  I  A  STUPED  IN  CV  =  250 
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TABLE  A3.  TABULATED  SCALED  DATA  OUTPUT  BY 
PRBCAL  (DATA  FILES  CV  =  300) 


RAM  DATA  WITH  VOLTAGE  CORRECTED  TO  PRESSURES  ail. H2o : 


01  HuS 


l-PA  PCAl-FA** 

PI -PA  P23-PA 

P4-PA 

P5-PA 

PK-Ffi 

**  PHI 

O320  30 

.356 

** 

21.1960  -1.5050 

2 . 230  :1 

-4.38O0 

21.453 

**  -6.0 

0080  30 

.  188 

#* 

21.3360  -1.2700 

1 . 3200 

-3.6400 

21 . 480 

#*-  -4.0 

0140  23 

.022 

** 

21.4420  -1.1830 

0. 9350 

-3. 3260 

21 .524 

**  -3.0 

0040  28 

.518 

** 

21.5880  -1.1510 

0.4786 

-2.9610 

21.612 

**  -  2 » ft 

0280  27 

.730 

** 

21.4020  -1.101O 

0 .  1 000 

-2.5800 

21.  443 

**  -1.0 

0040  27 

.048 

*# 

21.3080  -1.0380 

-0.2920 

-2.2020 

21 . 334 

**  0.0 

8120  26 

.554 

** 

21.3020  -1.022O 

-0.7  i09 

-1.7340 

2 1 . 352 

* .  1 . 0 

0260  25 

.724 

** 

21.3680  -1.027O 

-1.1 54 ?i 

-1 . 460O 

21.538 

*  *  2 « 11 

0480  25 

.240 

** 

21.5420  -1.0630 

-1  .'54  10 

-1.0620 

21 . 664 

*  *  3 .  0 

0160  24 

•  r  5£ 

** 

21.4160  -1.1220 

-  1 .  9Zr.fi 

-O. 6700 

21.542 

*  *  4.0 

0040  24 

.  15b 

** 

21.4520  -1.3430 

-8. 1 1 

0.1400 

21 . 656 

*  *  6 .  fi 

..  PRESS. 

(IH.HG) 

TEMPERATURE  (F> 

30.12 

107.50 

30.  12 

187.56 

30.  12 

107.50 

30.  12 

107.36 

12 

107.46 

30.  12 

107.70 

30 .  1  2 

107.8O 

’<}.  12 

107.80 

0.  12 

107. 77 

30.  12 

107.77 

30.  12 

107.80 

: TOPED  IN 

CV=3O0 
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TABLE  A4.  TABULATED  REDUCED  DATA  OUTPUT  BY  CALI 2 
(DATA  FILES  CV  =  100,  CV  =  150,  CV  =  200) 


i’M  a  rnoM 

I}A  1 A  PJ;  1  * 

.1  .OF  Ml  F^CV 

=100  AH F 

l'<»?  1  M 

Hnimn 

tv  1 1  o 

x  v»i 

Mn t hnn . 

1>l»  1 

T  1 h n no  f 

o  ri/*r»«;n 

.  r»7vi 

.  00*745 

.  n iooai 

.  no?/, Ft; 

-A .  do  noon 

98,  A1  1  17A 

n 

.  ?0  t  7r*7 

.  nnip>;7 

.  n-‘n?69 

.  070110 

1.000000 

9? .  4?r.o  i  ri 

nn';p7»? 

. 1 7977P 

.  nm  072 

.  IMM'iO 

.  II 9  0  5  4  1 

1 .  o  o  o  n  n  o 

1  00 . 0A931 0 

.  n  0A(in7 

. i 7 

. 000907 

.  n  mm? 

.  09010.1 

-? .  o  o  o  n  n  o 

i  on  ,F7fino o 

.  no*;?;** 

.  t07f>r»3 

. oooair 

.  0  101?-? 

.  09  0191 

-1.000000 

i  on .9171 o o 

nnt?n 

.  Q7/.6A9 

.000453 

.  010390 

. 09010? 

0.0000(10 

1 01 .??otoo 

o  o  r‘nqp 

,  npwtai 

.  noo'75 

,  PflCil 

.  niwiFo 

i  .  o  n  n  n  o  n 

101.  IP-101  0 

.  n 

,  no  7P7.7 

.oooni? 

,  0  1047A 

. 0705R1 

? .  o  o  o  o  o  n 

101  ,F?F.11  0 

(i  n 

noninn 

.not  i  /.r 

. 0O9HV? 

7.00000(1 

101. 7/  -UHIO 

,  n  ns9/»r* 

- ,  im^.v.v 

- .  npoo?7 

.  01030A 

.  0?0?01 

1.00  0  0  0  0 

1  01 .910 -’0  0 

i»nr;nM 

11471.1 

- .  non/,7.1 

.  o  >n  ion 

,  090541 

A  .  0  0  0  0  0  0 

1.  07.?735(il| 

i'n  J  A.  fROM. 

DA  JA 

A.  OF  F  t.  1  F  CV 

=  150  AHF 

!«.•  t  ii 

Unnun 

IV  1  t  n 

v  ur! 

h"rhiin  . 

P  t>  i 

1  T  ii  r i  r  i  ■  1 

0  1  7  7  1  1 

, P7A041 

.  0017P5 

n.-.o’rm 

.  11 A 177 

-  .  0 noon o 

1  09. 4  9/,  1|  0 

.  o  i  ,v,;>F 

.  ?  1  o  n  *  i. 

. OOPPAP 

’.  O/.O  7F9 

. 1  IF? 1 P 

o  .  o  n  n  o  n  o 

1  0? . A9"P0 0 

0  1  HIM 

.  1  7111(10 

.  O0P1P7 

.  o/.ni  ip 

.  1  1S191) 

1.000000 

109. A99B0 0 

. 0 1 1 IF? 

.  n  ;i  i? 

.001919 

.  0A0'-,?S 

. 1 15744 

P . 000000 

1  09 . 7 ? 7. “(in 

0  1  7  IFF 

.111110 

.  nor, pn 

. 0 A Clip 

. 1 151  OB 

- 1  .00000  0 

109.  A99BII  0 

.  0  1  l?9/» 

. 081  PIP 

.not  opn 

.  o  M1F77 

. 1 15A9A 

o.nooooft 

1 09 .7A7’ 9" 

0 1 1159 

0 1F5?1 

.  nnn.oo? 

. 0  AO  7F4 

.  1  1 A  1  OP 

1 . 000000 

1 09. A 9 9 P ( (  0 

O  1  179/. 

, no?ni a 

.000171 

. OA0911 

. 1 1A1SS 

p  .  o  o  n  n  o  o 

1  09.7A7';90 

.017  in? 

- . n??pn1 

00070(0 

.  IIM  1  01 

.  1 1/iRIl'i 

1 ,000(10  0 

1  09 , RO 1 F  0  o 

. 0 1 1010 

- .  os??//; 

- .  ono7n7 

..  O'.OAPO 

. 1 35799 

1 . 0  n  0  ft  o  0 

109. 7A7F'0 

011119 

- . 1 ?79P? 

-.  001  70A 

.  0 A 1 0B0 
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TABLE  A5.  TABULATED  REDUCED  DATA  OUTPUT  BY  CALI2 
(DATA  FILES  CV  =  250,  CV  =  300) 
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separate  files  generated  during  CALI2  execution  into  a 
single  file  consistent  with  the  format  required  for  the 
JOHN 4  program.  (A  tabulation  of  J0HN3  data  is  not  included 
since  the  quantities  are  the  same  as  those  listed  in  the 
separate  files  of  CALI2.)  J0HN4  produced  a  surface  plot  of 
the  data  (Figs.  A3  and  A4 )  and  generated  a  matrix  of  the 
probe  calibration  coefficients  (Table  A6 ) .  Figures  A3  and 
A4  are  plots  of  the  actual  data  generated  from  the  probe 
calibration  process,  while  the  ERRORS  (%)  at  each  point  in 
Table  A6  quantitatively  show  the  difference  between  the 
data  points  in  Figures  A3  and  A4  and  the  "best  fit"  surface 
at  the  given  values  of  beta  and  gamma.  The  "best  fit" 
surface  was  given  by  the  polynomial  expressions  previously 
cited  [Ref.  12]  using  the  matrix  of  calibration 
coefficients  produced  by  J0HN4 ,  and  tabulated  in  Table  A6 . 
J0HN4  produced  a  matrix  of  coefficients  and  also  associated 
tabulation  of  errors  at  each  point  for  increasingly  higher 
order  polynomials.  The  user  was  required  to  make  the 
choice  of  what  order  polynomial  gave  the  best  fit  to  the 
actual  data  by  an  examination  of  the  errors  at  each  point, 
associated  with  the  use  of  polynomials  of  different  orders. 
It  is  noted  that  the  program  prompts  the  user  for  the  M  and 
N  order  of  the  "best  fit"  polynomial.  The  coefficients  are 
presented  in  an  M  by  N  matrix  where  M  represents  column 
values  and  N  represents  row  values.  The  polynomial  order 
entered  is  thus.  M-l  and  N-l.  since  the  polynomial  order  is 
one  less  than  the  number  of  coefficients  that  it  requires. 
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TABLE  A6 .  BEST  FIT  CALIBRATION  COEFFICIENTS 
SELECTED  USING  JOHN4  WITH  ASSOCIATED 
ERRORS 
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A3.  TEST  PROGRAM  AND  RESULTS 

The  calibration  was  conducted  at  five  flow  velocities: 
nominally  100,  150,  200,  250  and  300  ft/sec.  At  each 
velocity,  the  probe  was  moved  to  -6,  -4,  -3,  -2,  -1,  0,  1, 
2,  3,  4,  6  degrees  of  pitch  (phi)  and  balanced  so  probe 
port  P2  and  P3  pressures  were  equal  on  the  manometer.  The 
data  were  stored  in  files  CV=100  to  CV=300  on  disc 
SHREEVE  P007 . 

Prior  to  the  calibration,  a  survey  of  the  free  jet  was 
conducted  at  a  flow  of  approximately  200  ft/sec  to 
determine  the  velocity  profile.  The  survey  was  conducted 
from  top  to  bottom  and,  with  the  probe  mounted  on  the 
underside,  from  bottom  to  top.  There  was  some  overlap  in 
the  survey,  which  in  principle,  would  allow  the  departure 
of  the  jet  flow  direction  from  true  axial  to  be  resolved  by 
the  pitch  angle  indicated  from  the  two  sides. 

Data  collected  in  files  CV=100,  CV=200  and  CV=300  and 
subsequently  reduced  by  PRBRED  were  handplotted  to  show  the 
effect  of  pitch  angle  on  the  coefficients.  Fig.  A5  shows 
phi  vs.  beta,  where  beta  =  (Pl-P23)/Pl.  Fig.  A6  is  a  plot 
of  phi  vs.  betabar,  where  betabar  =  beta/(PK-PA)/PK) .  Phi 
vs  gamma  ( P1-P4/P1-P23 )  is  shown  in  Fig.  A7  and  phi  vs. 
(P1-PK)/(PK-PA)  is  plotted  in  Fig.  A8 .  Free  jet  survey 
results  are  shown  in  Fig.  A9. 

A4 .  DISCUSSION 

The  probe  calibration  data  presented  in  Figs.  A3-A9 
are  well-behaved  and  qualitatively  consistent  with  the 
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experience  of  previous  investigators  [Ref.  4  and  Ref.  12]. 
Data  quality  and  probe  characteristics  can  be  determined 
from  the  quantities  plotted  in  these  figures.  A  discussion 
of  the  results  in  each  plot  follows. 

Appendix  A  of  Ref.  12  shows  that  beta  is  a  function  of 
the  non-dimensional  velocity  X  and  phi  with  strongest 
dependence  on  X;  gamma  is  a  function  of  X  and  phi  but  most 
strongly  dependent  on  phi.  Fig.  A5  shows  that  as  the  pitch 
angle  was  changed,  there  was  very  little  change  in  beta  for 
a  given  flow  velocity.  Since  beta  is  related  to  velocity 
as  developed  in  Appendix  A,  Ref.  12,  the  plot  implies  that 
there  was  a  very  small  change  in  the  measured  velocity  by 
the  probe  with  pitch  variation,  or  that  beta  is  slightly 
sensitive  to  pitch.  The  greatest  variation  in  beta  is  seen 
in  the  data  from  file  CV  =  300.  Beta  varied  by  about  1.3% 
which  equates  to  about  a  1.1%  possible  variation  in 
velocity.  (Change  in  beta  equals  change  in  velocity 
squared. ) 

To  remove  the  variations  in  beta  due  to  changes  in  the 
free  jet  flow,  phi  was  plotted  against  betabar  (Fig.  A6 ) . 
By  dividing  beta  by  (PK-PA)/PA,  the  effect  of  the  changes 
in  flow  through  the  jet  are  removed.  The  plot  shows  only 
those  changes  in  beta  which  are  due  strictly  to  pitch  angle 
variation.  Ideally,  all  points  for  each  phi  should 
coincide.  Some  variation  is  seen  at  the  extreme  phi 
values;  however,  the  betabar  scale  is  over  expanded  bv  a 
factor  of  two  compared  to  a  scale  appropriate  to  the 
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ability  to  resolve  the  measurements,  and  the  differences 
are  therefore  unneccessarily  exagerated. 

Figure  A7  clearly  shows  the  strong  dependence  gamma 
has  on  phi.  The  data  points  tend  to  be  more  closely 
grouped  in  the  -2  to  +2  deg.  range  with  the  lower  velocity 
points  slightly  more  separated  from  the  higher  velocity 
points.  Part  of  the  reason  for  this  difference  may  be  due 
to  pressure  errors  at  the  lower  jet  velocities  having  a 
larger  relative  effect  on  the  accuracy  of  the  data  points. 

Total  pressure  at  the  conical  probe  (PI)  and  total 
pressure  at  the  Kiel  probe  (PK)  should  be  nearly  identical 
when  phi  equals  zero.  One  would  expect  that  the  plot  in 
Fig.  A8  would  reflect  this,  however  it  does  not.  It  would 
be  expected  that  PI  and  PK  would  differ  with  pitch  change, 
accompanied  by  some  movement  of  the  data  points  away  from 
zero,  but  the  dispersion  of  the  data  in  this  plot  is 
difficult  to  explain.  The  general  trend  is  that  nearly  all 
points  are  less  than  zero,  implying  that  PK  is  generally 
higher  than  PI.  This  is  corroborated  by  the  free  jet 
survey  which  shows  that  the  Kiel  probe  was  immersed  in  a 
slightly  higher  velocity  region  than  was  the  conical  probe 
(see  Fig.  A9).  Note  that  JOHN 4  corrects  for  this 
difference  when  calculating  the  coefficients. 
Additionally,  it  is  pointed  out  by  Dreon  [Ref.  4]  that  the 
core  of  the  free  jet  has  a  0.05  degree  pitch  to  it.  The 
combination  of  a  nonuniform  velocity  profile  and 
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unsteadiness  at  low  flow  velocities  might  explain  some  of 
the  observed  scatter. 

A5 .  RECOMMENDATIONS 

The  recommendations  presented  here  focus  on  software 
and  hardware  improvements.  The  recommendations  are: 

1.  Restore  the  capability  to  generate  surface  plots  of 
the  X  and  phi  functional  relationship  with  beta  and  gamma 
using  the  "best  fit"  polynomial  and  calibration 
coefficients.  This  would  provide  a  visual  qualitative 
check  of  the  fit  to  the  calibration  data  (Figs.  A3  and  A4 ) . 

2.  Modify  the  HP-9830  based  program  PRBRED  to  include  the 
computation  of  beta  bar. 

3.  Create  specific  plotting  programs  on  the  HP-9830  to 
plot  the  quantities  in  Figs.  A5  -  A8 . 

4.  Repair  or  service  the  printer  that  supports  the  HP-21MX 
system.  Frequent  malfunctions  dramatically  slowed  the 
execution  of  HP-21MX  programs. 

5.  Investigate  the  feasibility  of  replacing  the  HP-9830 
with  an  HP-300  system  for  probe  calibration  and  related 
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APPENDIX  B 


SOFTWARE 

Bl.  INTRODUCTION 

The  software  consists  of  three  programs;  namely, 
"ACQUIRE,"  "CALC,"  and  "LOSS."  An  in-depth  knowledge  of 
computer  programming  is  not  required  to  run  the  programs; 
however,  some  knowledge  of  programming  in  Hewlett  Packard 
BASIC  5.0  would  be  required  in  order  to  plot  results  or 
make  corrections  to  data  files.  A  rudimentary  knowledge  of 
computers  by  the  user  is  presumed.  The  main  references  for 
the  programs  are  Ref.  13  -  17. 

The  programs  were  written  to  be  understandable  and 
flexible.  To  facilitate  understanding  program  flow, 
emphasis  was  placed  on  clear  logic  rather  than 
sophistication.  To  this  end,  subroutines  were  called  from 
a  library  to  perform  all  calculations  and  repetitive 
operations.  In  addition  to  providing  for  one  or  two  probe 
surveys,  modifications  to  hardware  addresses  on  the 
interface  bus  or  changes  to  scanner  channel  assignments  can 
be  made  easily  at  the  beginning  of  the  program. 

An  overview  of  the  file  system  and  program  flow  is 
given  in  sections  B2  and  B3  respectively,  and  the  step-by- 
step  procedures  required  to  run  the  programs  are  given  in 
Section  B4 ,  Program  Execution.  Common  errors  and  recovery 
steps  are  addressed  in  Section  B5,  and  common  modifications 
are  discussed  in  Section  B6 .  Copies  of  the  three  main 
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programs  are  contained  in  Section  B7  along  with  examples  of 
the  plotting  and  data  file  correction  programs.  Examples 
of  output  tables  of  scaled  and  reduced  data  for  both 
detailed  blade-to-blade  surveys  are  also  contained  in  this 
section.  Initialization  of  flexible  discs  and  backing  up 
files  to  flexible  discs  is  addressed  in  Section  B8. 
Recommendations  to  improve  the  software  are  presented  in 
Section  B9.  Finally,  for  the  user,  a  summary  of  the  steps 
involved  in  running  the  program  is  given  in  Section  BIO. 

B2.  FILE  SYSTEM 

Chapter  3  and  10  of  Ref.  13  cover  mass  storage 
concepts  (how  the  computer's  hard  disk  can  be  divided  up 
for  storage  space)  and  the  use  of  files  and  directories 
respectively.  The  current  directory  and  file  system  is 
shown  in  Fig.  Bl .  Four  subdirectories  were  created  under 
CLASSICK  in  the  root  directory.  The  sub  directory  DATA 
contains  all  the  digital  voltmeter  ( DVM )  readings  during 
the  survey.  Scaled  data,  or  raw  data  that  has  been  scaled 
in  engineering  units,  e.g.,  pressure,  degrees,  etc.,  are 
stored  in  REDDATA,  along  with  the  scaled  data  reduced  to 
useful  calculated  quantities.  The  probe  calibration 
coefficients  are  also  stored  in  REDDATA.  The  main  and 
ancillary  programs  are  contained  under  PROGS.  ROUTINES 
contains  all  the  subroutines  called  by  the  main  programs. 

When  conducting  a  probe  survey,  files  need  to  be 
created  to  store  the  data.  Data  can  be  collected  from 
blade-to-blade  or  span-wise  probe  surveys  or  from  a  scan  of 
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the  instrumented  blade  surface  pressures.  For  each  survey, 
raw  data,  scaled  data  and  reduced  data  files  are  created  as 
the  user  progresses  through  the  programs.  The  file  names 
are  arbitrary  but  should  be  descriptive  in  the  interests  of 
identification  and  kept  to  a  maximum  of  twelve  characters. 
The  file  names  in  this  report  consisted  of  a  prefix  to 
designate  the  survey  type,  followed  by  the  date,  run  and 
data  type.  The  prefix  and  suffix  meanings  are  given  in 
Fig.  B1 .  As  an  example,  the  raw  data  acquired  from  the 
lower  traverse  blade-to-blade  probe  survey  which  was 
conducted  on  4  Sept.,  was  named  "L-4SEPARAW . "  If,  for  some 
reason,  this  survey  were  repeated  the  same  day  and  the 
previous  survey  results  were  saved,  the  new  file  would  be 
named  "L-4SEPBRAW. "  The  user  should  define  the  file  names 
for  the  proposed  surveys  before  executing  the  program. 

B3 .  PROGRAM  FLOW 

The  program  flow  from  the  user's  perspective  is  shown 
in  Fig.  B2(a)-(d).  The  figures  show,  verbatim,  the  prompts 
rhe  user  will  see  on  the  screen  and  the  effects  that 
options  will  have  when  selected.  The  selection  of  options 
will  be  addressed  in  the  following  section. 

B4 .  PROGRAM  EXECUTION 

In  this  section  the  procedures  to  power  up  the  system 
and  run  the  programs  will  be  spelled  out.  (A  summary  of 
the  steps  for  the  user  to  run  the  programs  is  given  in 
Section  BIO.)  The  intent  here  is  to  provide  the  user  with 
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Figure  B2(b)  Program  Flow  Chart 
ACQUIRE  (cont.) 
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Figure  B2(d)  Program  Flow  Chart  - 
LOSS 
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the  necessary  information  to  acquire  and  reduce  the  data  in 
order  to  obtain  the  loss  coefficient  from  a  set  of  probe 
surveys.  The  program  flow  chart  should  be  referred  to  as 
the  program  steps  are  briefly  explained. 

1.  Turn  on  the  DVM,  scanner  and  Scanivalve  controller. 
The  computer  will  not  boot-up  unless  the  DVM  or  scanner 
is  on,  however,  all  of  these  components  must  be  on 
before  starting  the  survey. 

2.  Turn  the  disk  drive  on  and  wait  for  the  self  test 
to  complete  (two  amber  lights  below  the  flex  disc 
access  extinguish). 

3.  Turn  on  the  computer,  monitor  and  printer.  The 
printer  power  switch  is  located  behind  the  unit. 

4.  The  system  will  boot  up  the  HP  BASIC  5.0  resident 
on  the  hard  disc  and  go  through  a  series  of  self  tests. 

In  less  than  a  minute,  the  Hewlett  Packard  copywrite 
statements  will  appear  on  the  monitor.  Soft  key  labels 
appear  along  the  bottom  of  the  screen;  these  correspond 
to  the  top  row  of  keys  on  the  keyboard  labeled  fl  -  f8. 
The  key  board  and  an  example  of  what  the  soft  key 
labels  ok  like  for  step  12  is  shown  in  Fig.  B3. 

5.  Press  f5  corresponding  to  the  soft  key  label  LOAD. 

6.  Type  /CLASSICK/PROGS/ACQUIRE  between  the  quotation 
marks.  Press  RETURN.  This  establishes  the  path  from 
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Figure  B3.  Keyboard  and  Softkey  Labels 


the  root  directory  where  the  CLASSICK  directory  is 
located  to  the  file  ACQUIRE  via  the  subdirectory  PROGS. 
An  alternate  way  of  doing  this  would  be  to  type  in  at 
the  blinking  cursor  the  word  LOAD  followed  by 
"/CLASSICK/PROGS/ACQUIRE. "  Press  RETURN . 

7.  Press  f 3  corresponding  to  the  soft  key  label  RUN. 
The  first  prompt  in  the  ACQUIRE  program  will  appear. 
From  the  program  flow  chart,  it  can  be  determined  that 
the  prompt  will  read  "NAME  FILE  FOR  THE  RAW  DATA  TO  BE 
COLLECTED  FROM  THE  PROBE(S)."  The  file  name  is  typed 
in  directly  without  quotation  marks,  e.g.,  L-2SEPARAW . 
Press  ENTER. 

8.  At  the  next  prompt,  type  in  the  scaled  data  file, 
e.g.,  L-4SEPASCL.  Press  RETURN. 

9.  Type  in  the  atmospheric  pressure  in  inches  of 
mercury,  e.g.,  29.92.  Press  RETURN.  In  the  program 
this  defines  the  variable  Pbaro  as  equal  to  29.92. 
This  will  normally  be  constant  throughout  the  duration 
of  a  survey,  however,  in  the  rare  event  of  a  weather 
front  passing  through,  the  barometric  pressure  can 
change  during  the  survey.  If  the  change  is 
significant,  the  variable  Pbaro  can  be  redefined  while 
the  program  is  running  by  performing  the  following 
steps : 
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a.  Press  the  STOP  key  next  to  key  fl. 

b.  Type  Pbaro  30.00  to  change  from  29.92  to  30.00. 

c.  Press  RETURN. 

c.  Press  f 2  corresponding  to  soft  key  label 
CONTINUE. 

10.  Once  step  9  has  been  completed,  the  one  or  two 
probe  option  prompt  appears,  and  the  soft  key  labels 
EDIT  and  SCRATCH  corresponding  to  keys  fl  and  f4 
respectively  are  replaced  by  ONE  PROBE  and  TWO  PROBES. 
Press  the  appropriate  key.  Note  that  the  only  soft 
keys  the  user  will  press  during  normal  program 
execution  will  be  those  corresponding  to  keys  fl  and 
f 4 .  It  will  be  assumed  in  the  following  steps  that  the 
one  probe  option  was  used  -  the  only  difference  in 
procedure  will  be  an  additional  position  that  the  user 
must  enter  for  the  second  probe. 

11.  The  scan  number  and  position  are  typed  in  and  sep¬ 
arated  by  a  comma,  e.g.,  43,  2.55.  Press  RETURN.  The 
scan  number  can  be  up  to  four  characters  and  the 
position,  seven  characters  -  four  to  the  left  and  two 
to  the  right  of  a  decimal. 

12 .  The  scan  begins  after  RETURN  is  pressed  for  step 
11 ♦  All  the  data  for  the  scan  will  print  to  the  screen 
for  the  user  to  evaluate.  An  example  of  the  screen 
presentation  is  given  in  Fig.  B4.  If  the  data  is 
unsatisfactory,  press  f4  corresponding  to  soft  key 
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Figure  B4.  Data  Printed  on  the  Screen  - 
One  Probe  Scan 
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label  REPEAT.  This  will  return  the  program  to  step  11. 
If  the  data  is  satisfactory,  press  fl  corresponding  to 
soft  key  label  RECORD.  The  disc  drive  amber  light  will 
flash  momentarily  as  the  data  is  stored  on  the  disk. 

13.  Press  GO  ON  to  continue  taking  more  data.  This 
will  return  the  program  to  step  11  again  and  the  cycle 
repeats  until  the  survey  is  terminated  by  pressing  END 
PRB  DATA. 

14.  A  statement  appears  informing  the  user  what  file 
names  the  raw  and  scaled  data  files  are  under.  This  is 
just  a  reminder  and  requires  no  action. 

15.  The  next  statement  is  a  reminder  to  clear  the 
probe  away  from  the  instrumented  blade  before 
collecting  a  blade  surface  pressure  distribution. 

16.  Options  appear  to  either  collect  the  blade  data  or 
by-pass  this  operation  and  go  on  to  the  print  options. 

17.  The  collect  option  requires  file  names  for  the  raw 
and  scaled  data.  Type  the  names  as  was  done  in  steps  7 
and  8 . 

18.  The  scan  begins  after  RETURN  is  pressed  for  step 
17.  The  blade  data  will  be  printed  on  the  screen.  As 
in  step  12,  the  scan  can  be  repeated  if  the  data  is 
unsatisfactory.  An  example  of  the  screen  presentation 
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is  given  in  Fig.  B5.  Similarly,  the  data  is  stored 
when  RECORD  is  pressed. 

19.  After  recording  blade  data,  there  follows  a  series 
of  print  options  for  the  stored  probe  and  blade  data. 
The  steps  are  readily  apparent  from  the  program  flow 
chart.  Note  that  this  is  the  only  time  to  obtain  a 
hard  copy  of  the  raw  and  scaled  probe  and  blade  data. 
Currently  a  program  does  not  exist  to  print  the  data 
from  an  arbitrary  file  in  the  tabulated  format  produced 
by  the  ACQUIRE  program. 

20.  The  last  step  in  program  "ACQUIRE"  is  the  option 

of  terminating  the  program  by  pressing  GO  ON  or  loading 
the  reduction  program  "CALC"  by  pressing  CALC.  If  the 
data  collected  is  to  be  reduced  at  a  later  time,  then 
GO  ON  is  the  correct  choice.  Later,  when  the  user  is 
ready  to  reduce  the  data,  program  "CALC"  is  executed  by 
following  steps  5  and  6  except  type 

/CLASSICK/PROGS/CALC ;  press  RETURN,  then  press  soft  key 
RUN. 

21.  Once  "CALC"  is  executed,  the  first  prompt  that  ap¬ 
pears  is  "ENTER  THE  NAME  OF  THE  FILE  CONTAINING  THE 
PROBE  DATA  SCALED  TO  ENGINEERING  UNITS."  This  is  the 
scaled  data  file  produced  during  the  execution  of 
"ACQUIRE."  A  new  file  is  not  being  created  at  this 
time  -  the  entry  allows  "CALC"  to  reduce  the  data  in 
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Figure  B5.  Data  Printed  on  the  Screen 
Instrumented  Blade  Scan 
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the  scaled  data  file  to  useful  engineering  quantities. 
Type  the  file  name,  e.g.,  L-4SEPASCL.  Press  RETURN. 

22.  The  next  two  prompts  are  to  allow  "CALC”  access  to 
the  probe  calibration  coefficient  file  -  one  for  X  and 
one  for  Phi.  For  this  study  the  X  file  was  MIKEC3  and 
the  Phi  file  was  MIKEC2.  Type  these  file  names  in  at 
the  prompt  followed  by  RETURN. 

23.  The  one  or  two  probe  option  appears  next.  The 
difference  between  the  two  choices,  is  in  the  prompts 
displayed.  Two  probes  require  two  additional 
calibration  coefficient  files  to  be  accessed  -  hence 
the  prompts  for  the  upper  probe  coefficient  file  for 
X  ana  Phi. 

24.  The  prompt  "ENTER  THE  FILE  NAME  FOR  THE  DATA  TO  BE 
CALCULATED  FROM  THE  PROBE,"  requires  the  user  to  create 
a  new  file  for  the  data  about  to  be  reduced  from  the 
scaled  data  file.  Type  the  file  name,  e.g.,  L- 
4SEPACALC .  Press  RETURN.  Note  that  for  the  two-probe 
survey,  an  additional  file  must  be  created  for  the 
second  probe,  even  though  only  one  scaled  data  file  was 
created  in  "ACQUIRE"  for  either  a  one  or  two-probe 
survey . 

25.  The  next  prompt  will  remain  on  the  screen  until 
the  REDUCED  DATA  soft  key  is  pressed.  It  is  assumed 
that  the  "CALC"  program  would  not  be  executed  unless  a 
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hard  copy  of  the  reduced  data  were  desired,  hence,  no 
other  options  are  available. 

26.  The  option  to  calculate  the  mass  averaged  co¬ 
efficient  of  pressure  from  the  instrumented  blade 

data  appears  next.  Pressing  GO  ON  bypasses  this 
calculation.  Pressing  BLADE  CP'S  prompts  the  user  for 
additional  information. 

27.  As  in  step  21,  type  in  the  scaled  blade  data  file, 
e.g.,  B-4SEPASCL.  Press  RETURN. 

28.  As  in  step  24,  type  in  rhe  name  of  the  file  to  be 
created  for  the  blade  Cp's,  e.g.,  B-4SEPACALC.  Press 
RETURN . 

29.  The  next  prompt  requires  the  user  to  supply  the 
limits  of  integration  for  the  probe  survey  file  entered 
in  at  the  beginning  of  "CALC"  e.g.,  L-4SEPASCL.  This 
file  contains  data  for  the  blade-to-blade  survey 
upstream  at  midspan,  which  is  the  inlet  condition  to 
the  instrumented  blade.  (The  taps  are  located  at 
midspan.)  Quantities  obtained  from  the  blade-to-blade 
scaled  file  and  reduced  file  are  mass  averaged  for  the 
Cp  calculation  as  shown  in  Table  I.  The  limits  of 
integration  are  determined  by  noting  what  the  beginning 
and  ending  scan  numbers  are.  In  the  case  of 
L-4SEPASCL ,  the  first  scan  was  1  and  the  last  scan,  31. 
For  "ENTER  THE  LOW  SCAN",  type  1.  Press  RETURN.  For 
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"ENTER  THE  HIGH  SCAN",  type  31.  Press  RETURN.  Note 
that  it  is  not  the  position  that  is  entered,  but  the 
scan  number  corresponding  to  the  position  that  is 
entered.  Additionally,  the  integration  limits  can  be 
over  a  shorter  interval  than  the  entire  length  of  the 
survey  if  desired. 

30.  The  prompt  to  print  the  blade  Cp's  appears  once 
the  computer  completes  the  Cp  calculations. 

31.  The  final  prompt  in  "CALC”  allows  the  user  to  ter¬ 
minate  the  program  by  pressing  GO  ON  or  to  execute 
program  "LOSS"  by  pressing  LOSS.  To  calculate  the  AVDR 
and  loss  coefficient,  requires  an  upper  and  a  lower 
blade-to-blade  survey.  The  execution  of  "LOSS"  at  this 
point  would  not  be  appropriate  unless  the  user  has  a 
reduced  file  for  an  upper  and  lower  blade-to-blade 
probe  survey. 

32.  If  program  "LOSS"  was  not  executed  by  pressing 
the  LOSS  soft  key  in  step  31,  then  it  can  be  executed 
by  pressing  the  LOAD  soft  key  and  typing 
/CLASSICK/PROGS/LOSS  between  the  quotation  marks  and 
pressing  RETURN.  Press  the  RUN  soft  key. 

The  static  pressure  rise  coefficient,  AVDR  and 
loss  coefficient  are  calculated  from  quantities 
contained  in  the  reduced  files  of  the  upper  and  lower 
blade-to-blade  surveys  as  shown  in  Table  I.  The 
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entries  for  the  prompts  provide  the  program  access  to 
the  reduced  data  files. 

33.  The  prompt  "ENTER  THE  NAME  OF  THE  FILE  CONTAINING 
THE  CALCULATED  DATA  FROM  THE  LOWER  PROBE"  requires  the 
user  to  enter  the  file  name  for  the  lower  probe  blade- 
to-blade  survey  data  that  was  reduced  in  "CALC"  e.g. , 
L-4SEPACALC.  Press  RETURN. 

34.  The  next  prompt  pertains  to  the  upper  probe  blade- 
to-biade  survey  reduced  data  e.g.,  U-4SEPACALC.  Press 
RETURN. 

35.  Integration  limits  for  the  lower  probe  blade-to- 
blade  survey  are  requested  next.  As  noted  in  step  29, 
it  is  the  scan  number  corresponding  to  the  lower  limit 
of  the  integration  interval  that  is  entered  for  "ENTER 
THE  FIRST  POINT."  Likewise,  the  scan  number  for  the 
upper  limit  of  the  integration  interval  is  entered  for 
"ENTER  THE  LAST  POINT." 

36.  Limits  of  integration,  in  terms  of  scan  number, 
are  requested  again  for  the  upper  probe  blade-to-blade 
survey. 

Note  that  the  upper  and  lower  integrations  must  be 
the  same,  exact,  integral  number  of  blade  spaces 
(usually  one),  but  the  number  of  scans  to  cover  the 
same  distance  will  probably  be  different.  It  is 
vitally  important  to  ensure  that  correct  scan  numbers, 
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match  desired  integration  limits  when  the  integration 
interval  is  something  other  than  the  beginning  and 
ending  of  a  blade-to-blade  survey. 

37.  The  calculations  are  performed  and  the  static 
pressure  rise  coefficient,  AVDR  and  loss  coefficient 
are  printed  on  the  screen;  the  program  then  terminates. 

B5 .  COMMON  ERRORS  AND  RECOVERY  STEPS 
B5.1  Introduction 

Common  errors  germane  to  the  program  execution  are 
outlined  in  this  section.  Errors  for  each  program  are 
covered  rather  than  broad  categories  of  errors.  Specific 
recovery  steps  are  given  which,  in  some  cases,  require 
knowledge  of  the  program  structure.  Since  probe  surveys 
are  time  consuming,  it  behooves  the  investigator  to  be 
familiar  with  the  program.  A  mistake  in  many  cases  may  be 
rectified  by  stopping  the  program,  then  continuing  at  a 
specific  line  in  the  program.  To  this  end,  a  copy  of  the 
three  main  programs  should  be  available  during  a  survey.  A 
listing  of  the  programs  may  be  obtained  by  following  the 
steps  outlined  in  Section  B6.  In  those  cases  where  a 
specific  recovery  step  cannot  be  made,  the  user  is  referred 
to  Ref.  13-17.  A  complete  listing  and  description  of 
system  errors  can  be  found  in  Ref.  16. 

While  not  specifically  an  error  associated  with  program 
execution,  the  new  user  may  become  lost  in  the  directory. 
The  Mass  Storage  Is  or  MSI  command  (addressed  in  Ref.  13), 


88 


in  conjunction  with  a  path  name,  allows  the  user  to  move 
through  the  directory  levels.  The  command  MSI"/"  places 
the  system  in  the  root  directory  while  the  command 
MSI"/CLASSICK" ,  places  the  system  in  the  CLASSICK  directory 
which  is  subordinate  to  the  root  directory.  Executing  any 
of  the  three  main  programs  by  following  the  steps  in 
Section  B4  will  initially  place  the  system  in  the  PROGS 
subdirectory.  As  the  program  runs,  the  subdirectory  will 
change  to  facilitate  entry  of  the  various  file  names.  In 
all  cases  when  the  programs  have  terminated,  the  system  is 
in  the  REDDATA  subdirectory.  The  program  can  be  repeated 
even  from  this  subdirectory  by  pressing  RUN.  However,  if 
the  user  decides  to  move  somewhere  else  in  the  directory, 
the  MSI  command  and  path  name  must  be  used.  As  an  example, 
upon  "CALC"  termination  it  is  desired  to  execute  "ACQUIRE." 
The  command  MSI  "/CLASSICK/PROGS"  puts  the  system  in  the 
PROGS  subdirectory.  "ACQUIRE"  can  then  be  loaded  from  the 
subdirectory  PROGS  by  pressing  LOAD  and  typing  ACQUIRE 
between  the  quotation  marks. 

Alternatively,  "ACQUIRE"  could  have  been  loaded  from 
subdirectory  REDDATA  by  pressing  LOAD  followed  by  typing 
"/CLASSICK/PROGS/ACQUIRE" . 

B5.2  ACQUIRE 

1.  Errors  Involving  File  Names 

These  errors  will  most  likely  be  the  result 
of  either  attempting  to  enter  a  file  name  which  exceeds 
twelve  characters  or  entering  an  undesired  file  name.  If  a 


89 


system  error  is  returned  while  attempting  to  enter  a  file 
name  and  it  is  suspected  that  the  name  exceeded  twelve 
characters,  reenter  the  file  name  using  twelve  characters 
or  less.  Refer  to  Ref.  16  for  other  system  errors. 

Undesired  file  names  which  have  been  entered 
into  the  system  i.e.,  the  file  was  created,  can  be  handled 
in  different  ways.  Assuming  no  data  had  been  collected, 
the  program  could  be  aborted,  the  undesired  file  name 
purged  and  the  program  reexecuted.  The  steps  for  this 
would  be: 

a.  Press  STOP  (This  is  a  labeled  key  on  the  top  row). 

b.  Type  MSI  "/CLASSICK/SUBDIRECTORY  NAME”  (subdirect¬ 
ory  name  is  either  DATA  for  rawdata  files  or  REDDATA 
for  scaled  or  reduced  data  files). 

c .  RETURN 

d.  Type  PURGE  "UNDESIRED  FILE  NAME”  (include  quotation 
marks )  . 

e .  RETURN 

f .  Press  LOAD 

g.  Type  /CLASSICK/PROGS/ACQUIRE  between  quotation 
marks . 

h .  RETURN 

i .  Press  RUN 


Alternatively,  the  program  could  be  run  with 
the  undesired  file  name  and  the  name  changed  after  ter¬ 
minating  "ACQUIRE."  The  steps  for  this  would  involve 
writing  a  short  program. 

2.  Incorrect  Atmospheric  Pressure  Entry 
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The  required  steps  are  as  follows: 


a.  Press  STOP 

b.  Type  Pbaro  =  CORRECT  VALUE 

c.  RETURN 

d.  Press  CONTINUE 

3.  Incorrect  Probe  Option  Selected 

The  required  steps  are  as  follows: 

a .  Press  STOP 

b.  Type  CONT  145 

[Line  145  is  the  line  number  which  the 
program  would  have  to  return  to  in  order  to  generate 
the  probe  option  prompt  again.] 


c .  RETURN 

4.  Incorrect  Scan  Number  or  Probe  Position 
Entered 

Upon  pressing  RECORD,  an  error  statement 
will  be  returned  if  the  scan  number  was  entered  out  of 
sequence.  This  will  prevent  the  data  from  being  stored. 
Take  the  following  steps: 


a.  Press  STOP 

b.  Type  CONT  162  for  a  one  probe  survey 

c.  Type  CONT  160  for  a  two  probe  survey 

[These  are  the  line  numbers  in  the  program  that 
return  the  prompt  for  entering  the  scan  number  and 
position . ] 

d.  RETURN 
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An  incorrect  position  entry  will  not  return 
an  error  statement.  A  correction  to  position  can  be  done 
using  a  version  of  program  "correct"  after  completion  of 


the  survey. 

5.  Premature  Termination  of  Data  Collection 

If  END  PRB  DATA  was  mistakenly  pressed,  the 
ability  to  continue  with  probe  data  collection  can  be 
regained  by  these  steps: 


a .  Press  STOP 

b.  Type  CONT  162  for  a  one  probe  survey 

c.  Type  CONT  160  for  a  two  probe  survey 

d .  RETURN 

6.  By-passed  Collecting  Blade  Data  Mistakenly 
The  reguired  steps  are  as  follows: 

a.  Press  STOP 

b.  Type  CONT  357.  [This  line  number  returns  the  blade 
data  collection  option  prompt.] 

c .  RETURN 


7.  By-passed  Hard  Copy  Print  Options  Mistakenly 
The  required  steps  are  as  follows: 


a.  Press  STOP 

b.  Type  CONT  408.  [Line  408  is  the  beginning  of  the 
hard  copy  option  prompts.] 

c .  RETURN 


92 


B5 . 3  CALC 


1.  Incorrect  File  Entered 

The  "CALC"  program  will  reduce  any  scaled 
data  file  obtained  from  "ACQUIRE."  If  an  undesired  file 
name  was  entered,  abort  the  program  then  reexecute  it 
using  the  following  steps: 

a .  Press  STOP 

b.  Press  RUN 

2.  Incorrect  Probe  Coefficient  File  Entered 
The  required  steps  are  as  follows: 

a .  Press  STOP 

b.  Type  CONT  144.  [Line  144  will  return  the  prompt 
for  entering  the  X  velocity  coefficient  file.] 

c .  RETURN 

3.  Incorrect  Probe  Option  Selected 
The  required  steps  are  as  follows: 

a .  Press  STOP 

b.  Type  CONT  200  [Line  200  returns  the  probe  option 
prompt. ] 

c .  RETURN 

4.  Incorrect  Reduced  Data  File  Name  Entered 
"CALC"  is  short  enough  to  allow  termination 

and  reexecution  of  the  program  in  order  to  enter  the 
correct  desired  file  name  for  the  reduced  data.  The  steps 
to  do  this  are: 
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Press  STOP 


b.  Press  RUN 


The  undesired  file  name  can  be  purged  from 
the  REDDATA  subdirectory  by  following  the  steps  in 
paragraph  "1"  of  Section  B5.2.  If  "CALC"  is  to  be  executed 
after  the  purge  operation,  press  LOAD  and  type 
/CLASSICK/PROGS/CALC  between  the  quotation  marks.  Press 
RETURN  followed  by  pressing  RUN. 

5.  By-passed  Blade  Cp  Calculations  Mistakenly 
The  required  steps  are  as  follows: 


a .  Press  STOP 

b.  Type  CONT  736.  [Line  736  returns  the  blade  Cp 
calculation  option.] 

c .  RETURN 

6.  Incorrect  Limits  of  Integration  Entered 

Unless  the  limits  entered  are  non  existent, 
no  error  will  be  returned — only  erroneous  data  if  the 
limits  are  wrong.  If  the  Cp  values  do  not  look  correct, 
the  calculation  can  be  repeated  if  the  integration  limits 
are  suspected  to  be  in  error.  Perform  the  following: 


a.  Press  STOP 

b.  Type  CONT  736.  [This  will  return  the  blade  Cp 
calculation  option.  A  new  reduced  blade  data  file  name 
will  have  to  be  entered  since  the  previous  file  name 
contains  the  suspect  Cpreduced  data.  This  suspect  file 
can  be  purged  following  the  steps  in  paragraph  1, 
Section  B5 . 2 . ] 

c .  RETURN 
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B5.4  LOSS 


"LOSS"  is  a  short  program?  any  errors  in 
entering  the  prompted  entries  can  be  handled  by  terminating 
the  program  and  starting  again.  The  steps  are: 

a.  Press  STOP 

b.  Press  RUN 

B6 .  MODIFICATIONS 

B6 . 1  Introduction 

The  programs  were  written  to  accomodate  changes 
that  might  be  expected  to  occur  in  the  equipment  set-up  of 
the  cascade  facility.  Variables  defining  scanner  channel 
assignments,  HP-IB  equipment  addresses  and  other  variables 
that  might  change  as  the  investigations  are  modified  were 
placed  at  the  beginning  of  the  program.  Thus,  all  such 
changes  are  made  in  one  section  of  the  code.  Those 
variables  embedded  in  the  program  such  as  temperature,  yaw 
and  position  are  cited  by  line  number  to  allow  modi¬ 
fications  to  be  made  in  the  way  they  are  evaluated.  Array 
elements  were  redefined  when  necessary.  Changes  to  array 
elements  require  familiarization  with  the  program 
structure.  All  changes  should  be  followed  up  with  a 
revalidation  of  the  modified  code  prior  to  acquiring  new 
survey  data. 

Program  modifications  are  made  and  their  effects 
evaluated  best  by  examining  a  hard  copy  of  the  program. 
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Obtain  a  copy  of  any  program  in  the  PROGS  subdirectory  by 
performing  the  following  steps: 

a.  Type  MSI"/CLASSICK/PROGS,, 

b.  RETURN 

c.  Type  CAT  [This  will  list  all  the  programs  or  files 

in  the  PROGS  subdirectory.  After  identifying  the 

desired  program,  proceed  with  the  next  step.] 

d.  Type  PRINTER  IS  701  [Output  is  now  directed  to  the 

printer . ] 

e .  RETURN 

f.  LOAD  "DESIRED  PROGRAM" 

g.  RETURN 

h.  Type  LIST 

i.  RETURN  [The  program  will  now  be  printed.] 

Note  that  after  the  program  is  printed,  retu>  the  system 
to  print  on  the  screen  by  typing  PRINTER  IS  1,  followed  by 
RETURN. 

Once  the  changes  have  been  identified,  refer 
to  Chapter  11,  of  Ref.  13  to  edit  and  store  the  modified 
program . 

B6 . 2  Common  Changes 

In  "ACQUIRE"  the  common  variables  that  might  be 
changed  are  listed  in  the  front  of  the  program  along  with  a 
plain  langauge  description  of  what  the  variable  represents. 
It  is  assumed  the  user  will  understand  the  rudiments  of  the 
acquisition  system  prior  to  making  any  variable  changes. 
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B6 . 3  Temperature.  Yaw  and  Position  Changes 


The  variable  Temp  on  line  245  of  "ACQUIRE"  is 
defined  by  an  equation  that  represents  the  characteristics 
of  the  iron-constantan  thermocouple  used  in  the  present 
work.  This  equation  will  change  if  the  thermocouple 
changes.  Edit  this  line  with  appropriate  changes  to 
account  for  a  thermocouple  change. 

Referencing  the  yaw  angle  to  a  precisely  known 
horizontal  or  vertical  axis  as  outlined  in  Appendix  C 
requires  a  correction  to  the  yaw  transducer  output.  This 
correction  can  be  made  in  "ACQUIRE"  by  modifying  line  240 
for  a  one  probe  survey  or  lines  207  and  212  for  a  two  probe 
survey.  An  alternative  to  this  would  be  to  modify  "CALC" . 
Change  line  626  for  a  one  probe  survey;  change  lines  359 
and  491  for  a  two  probe  survey. 

Incorporating  the  use  of  linear  potentiometers 
for  probe  position  read-out  is  a  more  extensive  mod¬ 
ification  to  "ACQUIRE"  which  will  be  briefly  summarized  for 
a  one  probe  survey.  A  scanner  channel  for  the  potentio¬ 
meter  transducer  must  be  assigned  and  this  channel  defined 
by  a  variable  name.  The  variable  must  be  included  in  the 
COM  statement  on  line  169  and  in  line  754  of  the  subprogram 
"Readdvm".  A  CALL  statement  similar  to  that  listed  for  the 
Yaw  and  Temp  channel  readings  on  lines  238  and  242,  is 
required.  A  statement  allowing  the  transducer  channel  to 
be  read  by  the  DVM  must  be  included  in  the  IF-ELSE 
structure  of  "Readdvm".  Array  elements  presently  defining 
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probe  position  must  be  modified  if  necessary  and  traced 
through  "CALC". 

B6.4  Array  Elements  Changes 

In  "ACQUIRE,"  Scanivalve  port  readings,  in 
addition  to  other  quantities  are  assigned  an  array  element. 
A  change  in  an  array  element  assignment  may  require  a 
change  in  the  formatted  print  statements  and  headings. 
Additionally,  since  array  elements  are  redefined  during  the 
execution  of  the  three  main  programs,  a  trace  through  those 
programs  is  necessary  to  ensure  that  any  changes  in  array 
element  assignments  are  consistent. 

B . 7  PROGRAMS  AND  DATA 

A  complete  listing  of  the  program  and  data  files  is 
given  in  the  Table  of  Contents  for  Appendix  B.  The  three 
main  programs  have  been  previously  explained.  The  listed 
subprograms  are  called  by  the  main  programs  from  the 
ROUTINES  subdirectory  during  execution.  The  plot  programs 
are  specifically  those  used  to  plot  some  of  the  data  in  the 
present  study.  The  following  is  a  list  of  the  figures 
corresponding  to  the  plot  program  written  for  it: 


Prooram 

Fiaure 

PREFPQREF 

18 

BETAPOSIT 

19 

WREFSPAN 

8 

WREFUSPAN 

11 

CPBLADEPLOT 

23 
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Plots  are  printed  to  the  printer  by  pressing  DUMP 
GRAPHICS.  Samples  of  the  programs  to  correct  erroneous 
data  points  or  to  rereference  the  probe-displacement  are 
included.  "CORRECT  A"  (Section  B7.12)  was  used  to 
extrapolate  the  recorded  data  to  add  an  additional  scan. 
This  was  done  to  enable  data  to  be  integrated  over  exactly 
one  blade  space.  The  artificially  generated  scan  does  not 
appear  in  Table  B4  but  does  appear  in  Table  B5.  "CORRECT 
B"  (Section  B7.13)  provided  the  means  to  correct  an 
incorrect  value  of  probe  position  entered  during  a  scan. 
The  corrected  value  then  appears  in  Table  B5.  "CORRECT  C" 
(Section  B7.14)  was  used  to  rereference  displacement  values 
of  file  SUS-4SEPASCL  (example  not  included)  to  make  the 
midspan  position  equal  to  zero. 

The  probe  calibration  coefficients  were  stored  in  a 
file  using  "PRBCOEF"  (Section  B7.15)  with  actual 
coefficients  in  the  DATA  statement  in  lieu  of  those  in  the 
example.  Note  that  the  DATA  statement  must  contain  36 
entries  to  be  consistent  with  the  way  the  file  is  used  in 
the  program  "CALC." 

The  remainder  of  the  tables  have  been  previously 
addressed . 
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t0  (PROGRAM  ACQUIRE 

11  (THIS  FR06RAM  ACQUIRES  OATA  FROM  5-HOLE  PROBE  SURVEYS  ANO  PRESSURE 

12  IOISTRIBUTION  FROM  AN  INSTRUMENTED  BLADE.  SEE  CLASS1CK  M.S.  THESIS 

13  I  SEPT  89  FOR  PROGRAM  DESCRIPTION  ANO  DETAILS. 


52  I . •  «•»  DIMENSION  ARRAYS  . . 

53  OPTION  BASE  I  I8ASE  OF  ARRAY  WILL  BE  ONE  INSEAO  OF  ZERO 

54  DIM  Rawdat! I .106)  ITHIS  ARRAY  WILL  ACCOMODATE  BOTH  4B  PORT 

55  I  SCAN I VALVES  AND  IB  CHANNELS  FROM  7 HE  SCANNER 

IFOR  A  TOTAL  OF  1 06  COLUMNS  OF  DATA. 

56  DIM  Scaled! 1,106)  I ARRAY  USED  IN  PR I NT  I N6  PROBE  6  CASCADE  PRSSURES 

57  t TO  SCREEN 

59  DIM  Prnldala!  I  .48)  (ARRAY  USED  IN  PRINTING  BLADE  PRESSURES  TO  SCREEN 

60  DIM  Prnldatbll  .48) 

61  MAT  Prntdata-  <0)  (INITIALLY  FILLS  ARRAY  WITH  ZEROS-IF  ENTIRE  ARRAY 

62  (IS  NOT  FILLED  WITH  OATA.  THEN  REMAINDER  OF  ARRAY 

63  IWILL  CONTAIN  ZEROS. 

65  MAT  Prnldatb-  <0) 

66  I . VARIABLES  . . . . 

67  Oport-I  IOESIRED  PORT.  IT  IS  DESIRED  THAT  THE  SCANIVALVE 

68  IBE6IN  AT  PORT  I . 

70  Hpori-14  (HIGH  PORT.  LAST  PORT  ON  THE  SCANIVALVE  THAT  IS 

71  (OF  INTEREST. 

73  Dporta-I  I  SAME  AS  ABOVE  EXCEPT  IT  PERTAINS  TO  SCANIVALVE 

74  (RESERVEO  FOR  INSTRUMENTED  BLADE  SURVEY. 

76  Hporla-48  I  ALL  PORT  USED  ON  THE  BLADE  SURVEY 

77  Oportb-1  I  IN  TWO  PROBE  SURVEYS.  MORE  PORTS  ARE  USED-THE 

78  (DESIRED  PORT  IS  STILL  I. 

80  Hporlb-19  ILAST  PORT  OF  INTEREST  FOR  TUO-PROBE  SURVEYS. 

81  ScnlenpcHn-10  (SCANNER  CHANNEL  ASSI6NED  TO  THERMOCOUPLE 

82  Scnyauchn-24  I  '  *  *  ■  YAW  TRANSDUCER. 

83  Scnyauchnl-24  I  *  *  ■  *  LOUER  PROBE  YAU 

84  (TRANSDUCER  FOR  TVO-FROBE  SURVEYS. 

86  Scnyauchnu-21  (7  SCANNER  CHANNEL  ASSIGNED  TO  UFFER  PROBE  YAU 

87  (TRANSDUCER  FOR  TUO-PROBE  SURVEYS. 

89  Scnva-I  I SCANIVALVE  USED  FOR  INSTRUMENTED  BLADE. 

90  Scnvb'2  I  *  ’  PROBE  &  CASCADE  PRESSURES. 

91  Sen-709  (SCANNER  BUS  ADDRESS 

92  Svc-707  I SCANIVALVE  CONTROLLER  BUS  ADDRESS  (H6-78K) 

93  Dvn-722  IOIGITAL  VOLTMETER  BUS  ADORESS 

94  Scnrdsvc-I  (SCANNER  CHANNEL  ASSIGNED  TO  READ  SCANIVALVE 

95  (CONTROLLER  <  SCANIVALVE  READ  IS  THE  ONE  FOR 

96  IPROBE  AND  CASCADE  PRESSURES.) 

98  Scnrdevca-0  ISAME  AS  ABOVE  EXCEPT  THE  SCANIVALVE  READ  IS  FOR 

99  I  THE  INSTRUMENTED  BLADE  PRESSURES 

101  Scnrdiveb- I  ISAME  AS  ABOVE  EXCEPT  SCANIVALVE  READ  IS  THE 

102  I  ONE  FOR  PROBE  &  CASCADE  PRESSURES  WHEN  2-PROBE 

103  (OPTION  IS  SELECTED. 

105  Sens Ipsvca-40  ISCANNER  CHANNEL  ASSI6NE0  TO  STEP  SCANIVALVE  A 

106  Scnetpevcb-41  I  *  *  ....  e 

107  Senhnevca-45  ISCANNER  CHANNEL  ASSI6NE0  TO  HOME  SCANIVALVE  A 

108  Senhneveb-46  I  *  *  *  ...  B 

109  Max dlf-. 000050  I ERROR  TRAP  FOR  SPURIOUS  DVM  READINGS. 

110  Prnter-701  IBUS  AOORES5  FOR  PRINTER 

111  Scran- I  I8US  ADDRESS  FOR  MONITOR 

1(2  LOADSUB  ALL  FROM  VCLASSICK/ROUTINES/SUBACQUIRE’ 

113  MASS  STORAGE  IS  ‘ /CLASS I CM /DATA-  (ALLOWS  RAW  DATA  FILE  NAME  TO  BE  ENTERED 

114  1  AT  THE  PROHPT  WITHOUT  PATHNAME 

116  PRINT  *• . . . . . . . . . . 

117  PRINT  ” 


I  IB  PRINT  "NAME  FILE  FOR  THE  RAW  DATA  TO  BE  COLLECTED  FROM  THE  PROBE(S)" 

119  INPUT  Rauf  Hat 

122  CREATE  BOAT  Ra»fl Ia« .  100,048  IRAWFILE*  IS  A  STRING  VARIABLE  ASSIGNED 

124  I  THE  RAWFILE  NAME  TO  BE  ENTERED  AT  THE  PROMPT. 

125  ITHIS  FILE  IS  100  RECORDS  (ENOUGH  FDR  100  DATA 

126  I  POINTS)  EACH  RECORO  CAN  CONTAIN  106  REAL 
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INUMBERS  8X 1 06*848. 

ASS16N  *Path!  TO  Rmfllil  IAS5I6NS  A  PATH  NAME  TO  THE  RAW  FILE  JUST 

ICREATED  FOR  ENTER  AND  OUTPUT  STATEMENTS. 
MASS  STORAGE  IS  ’/CLAS5ICK/REDOATA' 

FRINT  • . . . . . 

PRINT  ” 

PRINT  ‘NAME  FILE  TO  STORE  THE  RAW  DATA  SCALEO  TO  ENGINEERING  UNITS’ 
INPUT  SclHlet 

CREATE  GOAT  Sc  1 f 1  let .  1 08 , 848 
ASSIGN  fPathZ  TO  Sclfllet 

PRINT  . . . . . . 

PRINT  ” 

PRINT  'ENTER  THE  ATMOSPHERIC  PRESURE  IN  INCHES  H6’ 

INPUT  Pbaro 
PRINT  ” 

PRINT  . * . . . 

PRINT  ” 

PRINT  ’PRESS  "ONE  PROBE"  IF  ONE  PROBE  IS  USED.’ 

PRINT  ’PRESS  "TWO  PROBES"  IF  TWO  PROBES  ARE  USED.’ 

PRINT  " 

FRINT  ’ . . . * . 

FRINT  " 

ON  KEY  I  LABEL  ’ONE  PROBE’  GOTO  Numberprb a  I  ICOD1NG  FOR  SOFT  KEYS 

ON  KEY  4  LABEL  ’TWO  PROBES’  GOTO  NunberprbsZ 

plnl:  GOTO  Splnl  IKEEPS  SOFT  KEY  LABELS  ON  SCREEN  U 


PROBE’  GOTO  Numberprb a  I  ICOD1NG  FOR  SOFT  KEYS 
PROBES’  GOTO  NunberprbsZ 

152  Splnl:  GOTO  Splnl  IKEEPS  SOFT  KEY  LABELS  ON  SCREEN  UNTIL 

153  IEITHER  SOFT  KEY  IS  PRESSED. 

154  Nunberprbs! :  Noofprba-I  INUMBER  OF  PROBES  DETERMINES  WHERE  TO 

155  I  GO  IN  THE  PROGRAM. 

157  GOTO  Checknoofprba 

158  Nunberprba2:  Noofprba*2 

159  Check noofprba :  IF  Noofprbe*2  THEN 

160  Start2prbs:  INPUT  ’ENTER  THE  SCAN  NUMBER,  LOWER  PROBE  POSITION  AND  UPPER  P 
ROBE  POSITION’  .Scan ,Poal 1 1  .Poll tu 

IGI  ELSE 

162  Star 1 1 prb : INFUT  ’ENTER  THE  SCAN  NUMBER  AND  PROBE  POS 1 TION’ .Scan  ,Poa 1 t 
IG3  FRINT  ” 

IB4  PRINT  . . . . 

1 65  END  IF 

IBB  COM  /Poaltvrbls/  Svc  .Sen  ICOMMON  BLOCK  UARIABLES  USED  IN  POSITIONING 

1 67  ITHE  SCANIUALVE  PORTS. 

169  COM  /Readvrbla/  Scan ,0vn .Scanvbl  I ,4B > .Tenpchnrd , Yauchnrd .Scnyauchn .Sent enp 
ehn  .Scnrdavcb  ,5canva( I ,48 ) .Scnrdavea .NooTprba .Yauchnrdu .Scnrdavc 

170  COM  /Readvrbli/  Yawchnrdl .Scnyawchmi  .Scnyawchnl .Maxdl f 

171  I  ABOVE  COMMON  BLOCK  UARIABLES  USED  IN 

172  | OBTAINING  DVM  READINGS. 

174  IF  Noofprbs-2  THEN 

175  GOTO  Read2prba 

175  ELSE 

177  GOTO  Readlprb 

I7B  ENO  IF 

179  Read2prba:PhINT  ’SCAN  NUMBER’ I  Scan 

180  PRINT  ’LOWER  PROBE  POSITION’ iPoalt I 

181  PRINT  ’UPFER  PROBE  POSI TION’ iPoil tu 

182  PRINT  ’PORT  VOLTAGE  GAUGE  PRESS! INCHES  H2o>  ’ 

183  MAT  Scanvb-  (•) 

184  FOR  Db'Oportb  TO  Hportb 

IBS  CALL  ScnvportpoiltlScnvb ,Db .Senhnaveb .Scnstpivcb )  ICALLS  SUBROUTINE 

1 86  ITO  POSITION  SCANIVALVE  PORTS.  INITIALLY  IT  WILL 

187  I POSITION  SCNIVALVE  TO  PORT  t. 

189  CALL  ReaddvnIOb .Scnrdiveb  >  ICALLS  SUBROUTINE  TO  READ  THE 

190  ITHE  SCANIVALVE  PORT  READINGS  ON 

191  ITHE  DVM. 

193  Prntdatb! I .1  >*Scanvb< I ,1  )«I0000  ICONVERTS  DVM  READINGS  TO  PRESSURE 

194  I  VALUES. 

1 96  IF  Db>l  THEN  Prntdatb! I .Ob >-Scanvb( I ,Db  )• 10000-Prntdatb! I .1 )  'ALLOWS 

197  I  PORT  I  READING  TO  BE  SURTRACTFP 
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198 

zee 

201 

202 

203 

204 

205 
2  05 

207 

208 
210 
211 
212 
213 

215 

216 
217 
210 

219 

220 
221 
222 
223 

225 

226 
228 
229 

231 

232 

233 

235 

236 

237 

238 

239 

240 

241 


IFROH  OTHER  READIN6S. 


PRINT  USING  ’0O.iex,ND.3D£,l0X.MD.3l 
NEXT  Ob 

CALL  ReaddvnIDb .Scnyawehnl  ) 

I VARIABLE.  OVH 
CALL  Readdvnl Ob  .Senyawehnu  I 

PRINT  . . 

PRINT  ’LOWER  PROBE  V AW  CHAN  REA0IN6 
Yawi»YawehnrdI» 1000 

PRINT  ’LOWER  PROBE  YAW  (DEGREES) 
PRINT  ’UPPER  PROBE  YAW  CHAN  REAOING 
Yawu*Yawcbnrdu« 1000 

PRINT  ’UPPER  PROBE  YAW  (0E6REES) 
GOTO  Continue 

Readlprb:PRINT  ’SCAN  NUMBER’ iScan 
PRINT  ’PROBE  POSITION’ iPoalt 
PRINT  ’PORT  VOLTAGE  6UA6E 

HAT  Scanvb-  (0) 


IE"  (Ob  .Seanvbf  I.Ob)  ,Prntdatb(  I  ,Db  ) 

I  Ob  IN  THIS  CONTEXT  ACTS  AS  A  DUHMY 
READS  THE  LOWER  PROBE  YAW  TRANSDUCER. 
(UPPER  PROBE  YAW  TRANSDUCER  IS  READ. 


’ tYauehnrdl 

(THIS  IS  WHERE  THE  REFERENCING 
I  CORRECT  I ON  FOR  THE  YAW  AN6LE  IS  MADE 
’ (Yawl 
’  i Yauchnrdu 

IMAKE  THE  REFERENCING  CORRECTION  FOR 
(UPPER  PROBE  YAW  AN6LE  HERE. 

' i Yauu 

1  COOING  FOR  REA0IN6  ONE  PROBE  BEGINS 
PRESSUREt INCHES  H2o>’ 


FOR  D-Oport  TO  Hport 

CALL  Scnvportpoa 1 t ( Senvb ,D , Senhma vcb ,Scnst psvcb )  (CALLS  SUBROUTINE  TO 

(POSITION  SCAN1VALVE  PORT. 

CALL  Readdvn(D,Senrdave )  (CALLS  SUBROUTINE  TO  READ  SCANIVALVE  PORTS 

ION  THE  DVM . 

Prntda*.b(  1  .1  >*Seenvb<  I  .1  1*10000  ISCALES  DVM  READINGS  TO 

ITO  ENGINEERING  UNITS. 

IF  0>l  THEN  Frnt da tb( 1  ,0  )*Scanvb( I  ,D  >• 1 0000 -Prnt da tb< I  ,1 )  'PORT  1 

(REAOING  SUBTRACTED  OFF  THE  SCANIVALVE 
(FORT  READINGS. 

PRINT  USING  ’OO.I0X.NO.3OE,l0X,MD.3DE’iD,Scanvb( I ,D > .Prnt datb( I ,D> 

NEXT  D 

PRINT  . . . . . * . ’ 

CALL  ReaddvmID  .Senyawchn ) 

PRINT  ’YAW  CHAN  READING  ’ | Yauchnrd 

Yaw-Yauchnrd»1000  (THIS  IS  WHERE  TO  CORRECT  FOR  PROBE  YAW  REFERENCING 

PRINT  ’YAW  ( DE6REES  )  *|Yau 


242  Cont 1 nue : CALL  Readdvn( Ob  .Sent enpehn  ) 


243  PRINT  ’TEMP  CHAN  READIN6 

244  T»Tenpchnrd* 1 000 

245  Tenp-33.91*T+34. 25*460 

246 

248  FR1NT  ’TEMPERATURE  (DEGREES  R) 

249  Fa-P barp.13.57 

250  PRINT  USING  ’26A ,4X ,20 . 2D ,X  ,4A , 


’ iTenpchnrd 

I  IRON  CONSTANTAN  THERMOCOUPLE  EQUATION 
I  SAME  ONE  USED  BY  DREON. 

’ i Tenp 

(ATMOSPHERIC  PRESS  CONVERTED  TO  INCHES  H2o 
X  ,3D.2D  ,5A" i "ATMOSPHERIC  PRESS  (INCHES)’.P 


baro.’(Hg)’  ,Pa.’(H2o>’ 

251  PRINT  ” 

252  PRINT  ’ . . . . . ’ 

253  PRINT  ’’ 

254  FRINT  ’IS  DATA  0K7  PRESS  ’’RECORD’”  TO  RECORD  DATA,  PRESS  ’’REPEAT”  TO’ 

255  PRINT  ’REFEAT  THE  SCAN.’ 

256  PRINT  ” 

257  PRINT  ’ . . . . . ’ 

258  ON  KEY  I  LABEL  ’RECORO’  60T0  Storerawdata 

259  ON  KEY  4  LABEL  ’REPEAT*  60TO  Rapaatacan 

260  Spln2:  GOTO  Spin2 


261  Rapaatacan:  IF  Noofprb**2  THEN 

262  GOTO  Start2prbs 

263  ELSE 

264  GOTO  Start Iprb 

265  ENO  IF 

266  Storerawdata:  1  STORE  RAWOATA  TO  RAWOATA  FILE 


267 

IF  Noofprba-2  THEM 

268 

MAT  Rawdat-  (0) 

269 

FOR  K-l  TO  19 

270 

Rawdat ( 1 ,K  >»Seanvb( 1  ,K  > 

IASS16N  ALL  THE  SCANIVALVE  READINGS  IN  THE 
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271 

ISCANUB  ARRAY  TO  THE  RAUDAT  ARRAY  ELEMENT 

272 

IBY  ELEMENT 

274 

NEXT  K 

275 

Rauda t ( 1 ,201-Posltl 

276 

Raudatl 1  ,21  )*Poaltu 

277 

Raudat!  1  ,22  )-Yawehnrdl 

279 

Raudat!  1  ,23  1-Yawehnrdu 

279 

Raudatl  I  ,24  >-Te«pchnrd 

280 

RawdaK  1  ,25>-Pa 

281 

OUTPUT  tPathl  .Sean i Rauda t <  •  ) 

(THE  OATA  IS  STORED  IN  THE  RAU  DATA 

282 

(FILE  WHICH  UAS  PREVIOUSLY  CREATEO. 

283 

ITHIS  IS  A  RANDOM  OUTPUT  STATEMENT. 

285 

NAT  Scaled-  <0> 

286 

FOR  K-l  TO  19 

287 

Scaled!  1  ,K  )-Prntdatb<  1  ,K  ) 

ISAME  METHOD  HERE  EXCEPT  SCALED  DATA 

288 

IIS  REASSIGNED. 

290 

NEXT  K 

291 

Scaled!  1  ,201-Posltl 

292 

Scaled! 1  .21  1-Poaltu 

293 

Sealed! 1  ,22  )*Yawl 

294 

Scaled!  1  ,23  >-Yawu 

295 

Scaled! 1  ,24  )*Tenp 

296 

Scaled!  1  ,25)-Pa 

297 

OUTPUT  VFath2  , Seam  Sea  led!  •  ) 

298 

ELSE 

299 

MAT  Raudat-  !0) 

300 

FOR  K-l  TO  14 

IFOR  THE  ONE  PROBE  OFTION,  ASSIGNS 

301 

1  ALL  THE  SCANIVALVE  READINGS  IN  THE 

302 

1  ARRAY  TO  THE  RAUDAT  ARRAY  ELEMENT 

303 

IBY  ELEMENT. 

305 

Raudat! 1  ,K  )-Scanvbl 1  ,K  1 

306 

NEXT  K 

307 

Raudat! 1  , 15  )-Poa 1 1 

308 

Raudat I  1,16  )«Yauchnrd 

309 

Raudatl 1  , 17 J-Tenpchnrd 

310 

Raudat!  1  ,1B)-Pe 

311 

OUTPUT  0Falhl .ScaniRaudat!*  ) 

1  THE  DATA  IS  STORED  IN  THE  RAU  DATA 

312 

(WHICH  UAS  PREVIOUSLY  CREATED.  THIS 

313 

IIS  A  RANDOM  OUTPUT  STATEMENT. 

315 

MAT  Scaled-  !0) 

316 

FOR  K-l  TO  14 

317 

Scaled!  1  ,K  >-Prntdatb<  1  ,K  ) 

(SAME  METHOD  HERE  EXCEFT  SCALED  DATA 

318 

IIS  REASSIGNED. 

320 

NEXT  K 

321 

Scaled! 1 ,151-Poslt 

322 

Sealed!  1,16  )*Yaw 

323 

Scaled!  1,17  >-Tenp 

324 

Scaled!  1,18  >*Pe 

325 

OUTPUT  0Path2 ,  Scant  Seal ed( • ) 

326 

END  IF 

( 

328 

PRINT  " 

329 

PRINT  'PRESS  "60  ON"  TO  CONTINUE  T AKINS  DATA,  PRESS  "END  PRB  DATA'" 

330 

PRINT  'TO  TERMINATE  PROBE  DATA  COLLECTION.' 

331 

FRINT  ” 

333 

ON  KEY  1  LABEL  *ENO  PRB  OATA' 

60T0  Print  filename 

334 

ON  KEY  4  LABEL  *60  ON'  60T0  Collactdate 

335 

Sp1n3s  SOTO  Spln3 

336 

Collectdata:  IF  NooTprbi-2  THEN 

337 

GOTO  Star t2prba 

338 

ELSE 

339 

6OT0  Start Iprb 

340 

END  IF 

342 

PRINT  " 

103 


343  Print  f  1 1 enane :  PRINT  -RAW  PROBE  DATA  IS  STOREO  * 

344  PRINT  ' IN  OATA  FILE"  ,Rawf 1 le*  * 

345  PRINT  •" 

346  PRINT  * . . . 

347  PRINT  •* 

348  PRINT  "PROBE  RAW  DATA  SCALEO  TO  ENGINEERING  UNITS" 

349  PRINT  "IS  STOREO  IN  REDDATA  FILE" ,Scl f 1 le* 

359  PRINT  ** 

351  PRINT  * . . . . . . " 

352  PRINT  "* 

353  PRINT  "ENSURE  THE  PROBE  IS  CLEAR  OF  THE  INSTRUMENTED  BLADE." 

354  PRINT  "" 

355  PRINT  . . . . . . 

356  PRINT  ** 

357  PRINT  *  PRESS  ""COLLECT  DATA""  TO  COLLECT  DATA  FOR  THE  INSTRUMENTED  BLADE" 

358  PRINT  "  PRESS  ""60  ON""  TO  CONTINUE  WITH  THE  PR06RAM. ’ 

359  PRINT  *" 

360  ON  KEY  4  LABEL  "SO  ON"  60T0  Prlntoptiont 

361  ON  KEY  I  LABEL  "COLLECT  DATA"  60TO  NaneTllB 

362  Spln4:  SOTO  Spln4 

363  Nanefile:  MASS  STORAGE  IS  "/CLASSlCK/DATA"  ICOOING  FOR  INSTRUMENTED 

364  IBLADE  SECTION  OF  PR06RAM  IS  SAME  AS  FOR 

f PROBE  SECTION. 

366  PRINT  * . . . . . 

367  PRINT  "" 

368  PRINT  "NAME  FILE  FOR  THE  RAU  DATA  TO  BE  COLLECTED  FROM  THE  BLADE." 

369  INPUT  Raub ladf I  let 

379  CREATE  BOAT  Rawbtadf 1  lei . 1 90 ,384  1190  RECORDS,  EACH  RECORD  CAN  CONTAIN 

371  • 48  REAL  NUMBERS  BX4B-384. 

373  ASSI6N  0Path3  TO  Raubladfile* 

374  MASS  STORAGE  IS  "/CLASSICK/REOOATA" 

375  PRINT  "4444444444444.44444444444444444444444444444444444444444444444444444 

376  PRINT  "" 

377  PRINT  "NAME  FILE  FOR  THE  RAU  BLADE  DATA  SCALED  TO  ENGINEERING  UNITS." 

378  INPUT  Sclbladf lie* 

379  PRINT  "" 

380  PRINT  ' . . . . . 

381  CREATE  BOAT  Sc  lb ladf l le* , 1 00 ,384 

382  ASSIGN  0Fath4  TO  Sclbladflle* 

383  Bladeread:  MAT  Scanva*  (0) 

384  FRINT  "SCAN  NUMBER" .Scan 

385  FRINT  -FORT  UOLTAGE  6UAGE  FRE55< INCHES  H2o)" 

386  FOR  Da-Dporta  TO  Hpprta 

387  CALL  Scnvpor (post l < Scnva ,Da .Scnhnsvea .Sens tpavea ) 

388  CALL  Readdvnf Da .Scnrdsvca ) 

389  Prntdalad  ,0a  >-Scanva<  I  ,Oa)»l0000 

390  IF  Da>l  THEN  Prntdatat  1  ,Da  >-Scenve<  I  .Da  >•  10000-Prnt  datad  ,1  > 

391  PRINT  USIN6  "00 , 1 0X  ,M0 . 3DE  ,  I9X  ,M0 . 3DE "  lOa  .Scanvad  .Da  )  ,Prnt datad  ,0a  I 

392  NEXT  Da 

393  FRINT  . . . . . . . . - 

394  PRINT  "" 

395  FRINT  "is  DATA  OK?  PRESS  ""REPEAT""  TO  REPEAT  THE  SCAN.  PRESS  ""RECORD"*" 

396  PRINT  "TO  RECORD  THE  OATA." 

397  PRINT  "" 

398  FRINT  . . . . . . . • 

399  ON  KEY  I  LABEL  "RECORD"  GOTO  Storedata 

400  ON  KEY  4  LABEL  "REPEAT*  60T0  Bladeread 

401  Spln5:  GOTO  SplnS 

402  Storedata:  OUTPUT  #Path3iSe«n»e( • ) 

403  OUTPUT  0Path4 (Prntdetel •  I 

404  PRINT  "THIS  OATA  IS  ASSOCIATED  WITH  THE  LAST  SCAN  OF  FILE  ".Selflle* 

405  PRINT  "" 

406  Prlntoptlonl :  PRINT  "...a.................................. 4 4.4.4.... 4. .  ■ 

407  PRINT  "" 

408  PRINT  "ALI6N  PAPER  IN  PRINTER.  * 

409  PRINT  "" 
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410  PRINT  -TO  PRINT  OUT  A  TABULATION  OF  THE  RAW  DATA  COLLECTED  FROM* 

41  I  FRINT  ’■ 

412  FRINT  'THE  PROBE(S),  FRE5S  ‘'RAW  TABLE”.  FRESS  ”60  ON”* 

413  PRINT  ” 

414  PRINT  "TO  CONTINUE  WITH  THE  PROGRAM. " 

415  PRINT  ” 

416  PRINT  . . . . . . 

417  ON  KEY  I  LABEL  ’RAW  TABLE*  GOTO  Pr intraut abl a 
4  IB  ON  KEY  4  LABEL  "60  ON*  60T0  Prlntoptlon2 

419  SpinB:  6GT0  Spin6 

420  Pr Intraut ab I e :  MASS  ST0RA6E  IS  */CLASSICK/DATA* 

421  ASSI6N  BPatht  TO  Rauflle*  ISTATEMENT  PUTS  FILE  POINTER  AT  BE6INING 

422  I  OF  FILE. 

424  PRINT  ** 

425  PRINT  'PRESS  "ONE  PROBE*'  IF  ONE  PROBE  WAS  USED.* 

426  PRINT  "PRESS  "TWO  PROBES”  IF  TWO  PROBES  WERE  USED.* 

427  PRINT  " 

42B  PRINT  * . . . . . 

429  ON  KEY  I  LABEL  ‘ONE  PROBE*  SOTO  Numberof prbs I 

430  ON  KEY  4  LABEL  *TUO  PROBES*  6010  Numberof prba2 

431  Sp  1  r>7 :  GOTO  5ptn7 

432  Number-o fprba  1  :  Noofprbs*! 

433  60T0  Houmanyprba 

434  Numbero fprba2 :  Noofprba*2 

435  Houmanyprba:  IF  Noofprbs*2  THEN 

436  PRINTER  IS  Prntar  I SENOS  PRINT  STATEMENTS  TO  THE  PRINTER. 

437  PRINT  . . . . . . . . ...- 

438  PRINT  ‘PROBE  RAW  OATA  FILE  *.Raufiie* 

439  PRINT  * . 

440  PRINT  ’SCAN  L  PRB  I  2  3  4 


441  PRINT  *  POSIT* 

442  FOR  N-1  TO  100 

443  ENTER  BFatht  ,NiRaudat(.)  (STATEMENT  ACCESSES  THE  RAW  DATA  FILE  IN 

444  (RANDOM  MODE. 

446  ON  END  0Fathl  GOTO  Twoprtntrawt  ISINCE  ALL  RECORDS  OF  A  FILE  MAY 

447  INOT  BE  FILLED  (RECALL  100  RECORDS  WERE 

448  (RESERVED  FOR  100  DATA  POINTS).  THE  ON 

449  l END  STATEMENT  ALLOUS  THE  PROGRAM  TO 

450  (CONTINUE  AT  THE  Twoprlntraul  LINE  WHEN 

451  IAN  END  OF  FILE  CONDITION  OCCURS. 

453  Poa II 1 -Raudat ( I ,20 > 

454  Fort l*Raudat( I , I  ) 

455  Porl2-Raudat< I ,2 > 

456  Por 1 3'Raude t  <  1.3) 

457  Por t 4“Rauda l < I ,4 > 

458  PortS-Raudatd  ,5) 

459  FRINT  USING  *40 ,3X .40 . 2D ,3X .MO . 3DE ,3X ,M0 . 3DE ,3X  ,MD . 3DE ,3X ,MD . 3DE  ,3X ,ND . 3DE* 
iN.Poaltl  .Portl  ,Port2,Porl3  .Port  4  ,Por  1 5 

460  NEXT  N 

461  Tuopr 1 ntrau I :  PRINT 


462  FRINT  "SCAN  6  7  B  9  10 

II* 

463  FOR  N-l  TO  100 

464  ENTER  fPathl .N|Raudat( •  ) 

465  ON  ENO  0F a t h 1  GOTO  Twoprtntra«2 

466  Port6*Raudat( 1 ,6  ) 

46  t  Port7-Reudat( I ,7) 

468  Por t 8*Rauda t ( 1  ,8  ) 

469  Port9-Rawdat( I .9  ) 

470  Por t 10-Rauda t ( I , 10) 

471  Port  1 l>Raudat(  I , 1 1 ) 

472  PRINT  USING  *40 ,3X ,M0. 30E ,3X ,M0. 30E ,3X ,MD. 3DE  ,3X  .MO. 3DE ,?X ,MD . 30E ,2X  ,MD. 3DE 
*lN,Fort6,Port7  ,  Por  IB  .Port  9  .Port  10  .Port  1 1 

473  NEXT  N 
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474  Twoprintraw2 :  PRINT 


475  PRINT  ’ SCAN  U  PR8  12  13  -  14  IS 

IG' 

47G  PRINT  *  POSIT- 

477  FOR  N-l  TO  100 

470  ENTER  »Fathl  ,NiRawdat<  •  ) 

479  ON  END  CPathl  60T0  Twopr|ntraw3 

400  Fos 1 tu-Rawda t  < I  ,21 ) 

401  Pori  12-RawdaK  I  .12  ) 

402  Fort I3-Rawdat< 1,13) 

403  Port  1 4-Raudat  <  1,14) 

404  Fort tS-Rawdat< 1  .15  1 

405  Port  1 6-Rauda t  <  1,16) 

48G  PRINT  USING  ’40  ,3X  .40 . 20 ,3X  ,M0 . 3DE  ,3X  ,M0 . 3DE  ,3X  ,M0. 30E  ,3X  ,H0 . 30E  ,3X  ,M0 . 30E " 
iN.Poaltu, Port  12, Port  1 3. Port  1 4, Port  15 .Port  IB 
407  NEXT  N 

400  Twopr lntraw3  :  PRINT  . . . . . . . . . . . 


409  PRINT  "SCAN  17  18  19  * 

490  FOR  N-1  TO  100 

491  ENTER  RPathl  .NiRaudaH  •  ) 

492  ON  END  *Pathl  GOTO  Tuoprintrau4 

493  Port  I  7*Raudat (  1,17) 

494  Fort I8-Rawdat( 1  .18 > 

495  Port  I 9-Rawdat< 1,19) 

49G  Pa-Rawdat ( 1 ,25 ) 

497  PRINT  USING  "40 ,3X ,HD . 3DE ,4X ,H0 . 30E  , 4X ,MD . 3DE " I N  .Port 17,Port18.Port19 
499  NEXT  N 

499  Twoprintraw4 :  PRINT 


500  FRINT  'SCAN  YAU  l  YAU  U  TEMPCHN  ATMOS' 

501  PRINT  '  UOLT  UOLT  VOLT  PRESSURE' 

502  FOR  N-l  TO  100 

503  ENTER  tPathl  ,N,Ra«dat( • ) 

504  ON  END  fFalM  GOTO  TwoprlntrauS 

505  Yauchnrdl-RaudaK  I  .22  ) 

50G  Yeuchnrdu-Raudat ( I ,23 > 

507  Tenpchnrd-Raudatl 1 ,24  ) 

508  Fa-Rauda 1(1,25) 

509  PRINT  USING  "40  ,3X  ,UD . 3DE ,4X ,M0 . 3DE  ,4X  ,MD . 3DE  ,4X  ,3D . 2D" i N .Yauchnrdl ,  Yauchnr 
du  .TenpcHnrd ,Pa 

510  NEXT  N 

511  TwoprlntrauS:  OFF  END  SPathl  I  TERMINATES  THE  ON  END  COMMAND 


512 

ELSE 

513 

FRINTER  IS  Prnter 

515 

PRINT  -PR08E  RAW  OATA  FILE 

.Rauf  1 le* 

517 

PRINT  'SCAN  PROBE  1 

2  3 

4  5‘ 

518 

PRINT  ’  POSIT' 

519 

FOR  N-1  TO  100 

520 

ENTER  0Fath1  ,N|Raudat( • ) 

1STATEMENT  ACCESSES  THE 

RAW  DATA  FILE  IN 

521 

1  RANDOM  MODE 

S23 

ON  END  *Pathl  GOTO  Pr In trawl 

1  SINCE  ALL  REC0R05  OF  A 

FILE  MAY  NOT  BE 

524 

IFHLEO  (RECALL  100  WERE 

USED  FOR  100 

525 

IDATA  POINTS),  ON  ENO  STATEMENT  ALLOWS  THE 

526 

1  PROGRAM  TO  CONTINUE  AT 

THE  Prlntraul  LINE 

528 

Poa  1 1 -Rawdat  <  1,15) 

529 

Por  1 1 "Rawdat ( 1,1) 

530 

Port2-Rawdat( 1 ,2 ) 

531 

Port3-Rawdat< 1 ,3 ) 

532 

Port4»RawdaM  1  ,4  ) 

533 

Por  t5*Rowdat  <  1  ,5) 

534 

PRINT  USING  "40  ,2X  .40. 20 ,2X ,M0 . 

30E ,2X .MD.30E ,2X  .M0.30E .2 X .MD.30E  ,2X  .MD.30E 

" *N, Pnal t .Port  1  .Port  2, Port  3, Port  4, Port  5 
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535  NEXT  N 

536  Frintrawl  :  FRINT  1 . . . . . . . . 

537  PRINT  "SCAN  6  7  8  9  10  II 

539  FOR  N-l  TO  100 

539  ENTER  0Patb1 ,N|Raudat( • ) 

540  ON  END  #Fath1  60T0  Prlntraw2 

541  Por t 6“Rawda t < I ,G 1 

542  Port7-Rawdat< I  ,7) 

543  Por  1 8"Rauida t  (  I  ,8  ) 

544  Port9-Rawdat< I .9 > 

545  Port 10-Raudat< 1,10) 

546  Portl 1 *Rewdat  < I  .11) 

547  PRINT  USING  " 4D ,2X ,MO . 3DE ,2X .MO . 30E ,2X ,MD . 3DE ,2X  ,MD. 3DE ,2X ,MD . 3DE ,2X ,HD . 3DE 
" iN.PortG .Por 17, Port  8 .Por 19 ,Por 1 1 0  ,Por 1 1 1 

548  NEXT  N 

549  Prlntraw2:  PRINT  . . . . . 


550 

PRINT  "SCAN  12 

13 

14 

YAUCHAN 

TEMPCHAN 

AT 

MOS" 

551 

PRINT  " 

UOLTAGE 

UOLTAGE 

FR 

ESSURE" 

552  FOR  N™ I  TO  100 

553  ENTER  SPathl  ,N,Rawdatt •  > 

554  ON  ENO  0Falhl  GOTO  Prlntraw3 

555  Port 12-Raudat ( 1 . 12  ) 

556  Port  I 3"Raudat ( 1,13) 

557  Port  I4-Rewdat<  1,14) 

558  Yauchnrd'Raudat ( I  ,  1 6  ) 

559  Tampchnrd*Rawdat 1 1  , 1  7 ) 

560  Pa-RaudatM  .18) 

SGI  PRINT  USING  ‘40 ,2X ,MD . 3DE ,2X ,MO. 3DE ,2X ,MD. 3DE ,2X ,MD . 3DE . 2X ,HD . 3DE ,2X , 3D . 2D‘ 
|N,Port12,Fortl3,Porll4  , Yauchnrd  .Tenpchnrd  ,Pa 

562  NEXT  N 

563  Frfntraw3:  PRINT  " . . . . . 


564  OTF  END  0Fath1  I  TERMINATES  ON  END  STATEMENT 

565  END  IF 

566  FRINTER  IS  Seren  IRETURNS  PRINT  STATEMENTS  TO  MONITOR. 

567  PRINT  . . 

568  PRINT  "" 

569  Frlnlopt 1on2 :  PRINT  "ALIGN  PAPER  IN  PRINTER." 

570  FRINT  "" 

571  PRINT  "TO  PRINTOUT  A  TABULATION  OF  THE  PROBE  DATA  SCALED  IN- 

572  PRINT  *" 

573  PRINT  "ENGINEERING  UNITS,  PRESS  ""SCALED  DATA"".' 

574  FRINT  "" 

575  PRINT  "PRESS  ""60  ON‘"TO  CONTINUE  WITH  THE  FROGRAM." 

576  PRINT  "" 

577  FRINT  . . . . . . . . 

578  ON  KEY  I  LABEL  *  SCALED  DATA"  GOTO  Prnt sea  I edt ab 1 e 

579  ON  KEY  4  LABEL  "60  ON"  60T0  Prlntoptlon3 

580  SoInS:  GOTO  Spln8 

581  Prnlscaledtable:  MASS  STORAGE  IS  "/CLASSICK/REDOATA" 

582  ASSI6N  *Path2  TO  Sclftlet 

583  PRINT  "" 

584  FRINT  "FRESS  ""ONE  PROBE""  IF  ONE  PROBE  WAS  USED." 

585  PRINT  "PRESS  "TWO  PROBES  "  IF  TWO  PROBES  WERE  USED." 

586  PRINT  "" 

587  PRINT  . . . . . 

588  ON  KEY  I  LABEL  "ONE  PROBE"  60TO  Nunberprobes I 

589  ON  KEY  4  LABEL  "TWO  PROBES"  GOTO  Numberprobes2 

590  Sp1n9:  GOTO  Spln9 

591  Nunberprobea I :  Noofprba*1 
597  GOTO  How<"aryproba» 
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593  Nu"berprobe»2 :  Noofprbs-2 

594  Hownanyprobes :  IF  Noofprbs-2  THEN 

595  PRINTER  IS  Prnter 

596  PRINT  ' . . . * 

597  PRINT  "PROBE  SCALEO  OATA  FILE  ".Sclflle* 

599  PRINT  " . . . - 

599  PRINT  "SCAN  L  PRB  I  2  3  4 

5" 

60®  PRINT  "  POSIT- 

601  FOR  N-l  TO  (00 

602  ENTER  0Falh2,NiScal ed!  •  ) 

603  ON  END  0Palh2  SOTO  Tuoprlnlsclt 

604  Posit 1-Scaled( 1 ,20 > 

605  Port  1 -Scaled! I , I  ) 

606  Port2-Scaled( 1  ,2  ) 

607  Porl3-Scaled( I ,3 > 

608  Port4-5caled( 1  .4  ) 

609  PortS-Scaled! I ,5 ) 

610  PRINT  USIN6  *<D, 3X, 40.20, 3X, MO. 3DE.3X, HD. 3DE.3X, HD. 3DE.3X.MD.3DE, 3X.MD. 3DE" 
iN.Posltl  .Porll  ,Port2  ,Port3  ,Port4  , Ports 

611  NEXT  N 

612  Tuoprlntscll;  PRINT  *••«*»•••••»*••••••••••«»  ■  »••>  r  i  «•••«•  w,  • 


613  PRINT  'SCAN  6  7  8  9  |0 

I  I  " 

614  POR  N-l  TO  100 

615  ENTER  PFath2  .NiScaled!  • ) 

616  ON  END  0Falb2  GOTO  Tuopr lnt sc  1 2 

617  Por 1 6-Sca 1 ed< I  ,6  ) 

618  Port7-Scaled( I  .7  ) 

619  Por t B’Sca 1 ed! I  ,8 > 

620  For 1 9»Sca 1 ed! I  ,9  ) 

621  Port I0-Scaled( I , 10) 

622  Port  I  I -Scaled! 1,11) 

623  PRINT  USING  "40 ,3X ,M0. 30F ,3X ,M0 . 3DE ,3X ,MD. 3DE  ,3X  ,MD. 3DE  ,2X ,ND. 3DE  ,2X  ,MD . 3DE 
*  I  N  .For  tE  ,Port7  , Por  18  ,Port9  .Port  10  .Port  1 1 


624 

625 

NEXT  N 

Tucpr int  sc  12 : 

PRINT 

626 

PRINT  'SCAN 

U  PRB 

IB- 

627 

PRINT  * 

POSIT' 

620 

FOR  N-l  TO 

100 

629  ENTER  f Fa t h2  ,Ni Sea  I ed! • ) 

630  ON  END  0Path2  GOTO  Twoprtntscl3 

631  Pos I tu-Sca led! I  ,2  I  ) 

632  Por  1 1 2-Scal  ed(  I  ,  I  2  ) 

633  Fort13-Scaled( I ,13) 

634  Fort | 4-Scal ed! I , 14  ) 

635  Port (5-Sca led! 1 . 15 ) 

636  Port IG-Scaled! I , 16  ) 

637  PRINT  USING  " 40  ,3X  ,40 . 20  ,3X  ,M0 . 3DE  ,3X  ,MD .  30E  ,3X  ,M0 . 3DE  ,3X  ,M0 . 3DE  ,3X  ,MO .  30E" 
iN  ,Posl tu .Port  12 .Port  I  3 .Port  14 .Port  15  .Port  16 

638  NEXT  N 

639  Tuopr lnt sc  13:  PRINT  . . . . . . . 


640  PRINT  'SCAN  17  IS  19  • 

64|  POR  N-1  TO  100 

642  ENTER  *Path2  , NiScaled! •  ) 

643  ON  ENO  0Patb2  GOTO  Tuoprlntscll 

644  Por  1 1 7-Sceled<  1,17) 

645  Por t IB-Scaled! I , 18  ) 

646  Port  1 9-Scaled( I  , 1 9 ) 

647  PRINT  USING  *40  ,3X  ,M0 . 30E ,4X ,M0 . 3DE  ,IX ,MD . 3DE ' |N .Por  1 1 7  PortlS  Portl9 

648  NEXT  N 

P49  Twopr  t  nt  8C  I  4  ?  PRINT 
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650 

PRINT 

■SCAN 

YAW  l 

YAW  U 

TEMP 

ATMOS - 

65! 

FRINT 

■ 

DEG 

DEG 

( R-) 

PRESSURE 

652 

FOR  N-l 

TO  100 

653  ENTER  PPa t h2  ,N i Sea  1 ed( •  ) 

654  ON  ENO  »Path2  6010  TuoprlntaelS 

655  Yaul-Scaled( I .22 > 

656  Yawu-Scaledl 1 ,23 ) 

657  Tenp-Sca 1 ed( I .24  ) 

658  Pa-Sealed< I .25 ) 

659  PRINT  USING  "4D  ,3X ,H0 . 30E ,4X  ,M0 . 30E ,4X ,MD . 3DE ,4X  ,  3D.2D'iN,Yaul  ,Yauu  ,  Tenp  .Pa 

660  NEXT  N 

661  Tyopr 1 ni sc  15 :  OFF  ENO  0Path2 

662  ELSE 

663  I  ENO  IF 

664  PRINTER  IS  Prnter 

665  PRINT  ' . . . ..• 

666  PRINT  ‘PROBE  SCALEO  OATA  FILE  ’.Sclflle* 

667  PRINT  . . . . . . . ........ 

668  PRINT  'SCAN  PROBE  1234 

S' 

669  PRINT  ’  POSIT- 

670  FOR  N-l  TO  100 

671  ENTER  0Path2  .NiScaledt •  ) 

672  ON  END  0Path2  GOTO  Prlniaell 

673  Poalt-Scaled(  I  .15) 

674  Pori  I -Sea  I ad( I  . I  ) 

675  Port  2-Sea  1 ed< I  ,2 > 

676  For t 3-ScaJ »d< I .3 > 

677  Pori 4-Sca I ed< I ,4 > 

678  Por t5-Sca 1 ed( 1  ,5  ) 

679  PRINT  USING  "40  ,3X  .40 . 20 ,3X .H0.30E  ,3X .MO. 30E ,3X .H0.3DE ,3X .M0.3DE ,3X ,MD. 30E 
■iN.PosIl  .Pori  1  ,Fori2 .Port3.Port4 ,Port5 

680  NEXT  N 

6BI  Prinlscll:  PRINT  . . . . 


682  PRINT  -SCAN  6  7  8  9  10  II 

663  FOR  N-l  TO  100 

684  ENTER  fPath2  .NiSceledl •  ) 

685  ON  END  0Palh2  GOTO  Prlntacl2 

686  Pori6-Scaled< 1 .6  ) 

687  For l 7-Sca I ed( I  .7  ) 

688  For i 8-Sca 1 ed( I .8  ) 

689  Port9-Scaled< I .9  ) 

690  Fori 10-Scel»d<  I , 10  ) 

691  Por  1 1  I  -Scaled!  1.11) 

692  PRINT  USING  "40 ,2X .ND.3DE  ,2X ,MD. 3DE ,2X .M0.30E ,2X  .M0.30E ,2X ,M0. 3DE ,2X ,H0 . 3DE 
' iN .For 1 6 .For i 7 .Port 8 ,Por i 9 ,Por 1 1 0 .Por 1 1  I 

693  NEXT  N 

694  Fr|ntscl2:  FRINT  . . . . . . 


695  PRINT  -SCAN  12 

13 

14 

YAW 

TEMP 

AT 

MOS- 

696  PRINT  ■ 

OES 

(R) 

PR 

ESS- 

697  FOR  N* 1  TO  100 

698  ENTER  0Path7  .NiScaledl «  ) 

699  ON  END  0Path2  GOTO  Prlntael3 

700  Por 1 1 2-5caled*l  ,  1 2 > 

701  Pori  I  3*Scaled<  1.13) 

702  Port I4-Scaled( I ,14 > 

703  Yaw-Scaled< I  .16  ) 

704  Tenp-Sca led! 1 , 17 > 

705  Fa-Sea led( 1,18) 

706  PRINT  USING  ■ 40, 2X , MO. 30E,2X ,M0 . 30E ,7X ,MD . 30E ,ZX ,M0 . 3DE ; 2X,M0 . 30E ;2X ; 30.20" 
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|N  , For  ( I 2  .Port  13  .Port !  4 . Yaw ,  Tenp  ,Pa 

707  NEXT  N 

708  Pr 1 nt sc  13 :  PRINT  ■•••••••••••• 


709  OFF  END  0Path2 

710  END  IF 

71  I  PRINTER  IS  Scren 

712  PRINT  . . . . . . ••••••• . 

713  PRINT  '• 

714  Pr lntopt 1 on3 :  PRINT  "PRESS  '"BLADE  DATA”  FOR  BLADE  DATA  PRINT  OPTIONS." 

7 1 5  PRINT  "" 

716  PRINT  "PRESS  *"60  ON""  TO  CONTINUE  PR06RAM. * 

717  PRINT  "* 

718  PRINT  . . ••••••• . . 

719  ON  KEY  I  LABEL  "BLADE  OATA"  6010  PrtntoptloM 

720  ON  KEY  4  LABEL  "60  ON"  60TO  Loadoptionl 

721  SplnlB:  SOTO  Splnt0 

722  Prl ntop t lon4 :  PRINT  ” 

723  PRINT  "ALI6N  PAPER  IN  PRINTER." 

724  PRINT  "" 

725  PRINT  "TO  PRINT  OUT  A  TABULATION  OP  THE  RAU  BLAOE  DATA" 

726  PRINT  "" 

727  PRINT  "PRESS  ""BLADE  DATA"".  PRESS  ”60  ON"  TO  CONTINUE." 

728  PRINT  "" 

729  PRINT  " . . . . . . . 

730  ON  KEY  1  LABEL  "BLAOE  DATA"  GOTO  Prnlb 1 adeda t a 

731  ON  KEY  4  LABEL  "GO  ON"  SOTO  PrlntoptlonS 

732  Splnl  1  ••  GOTO  Splnl  1 

733  Prnlbladedate:  MASS  STORAGE  IS  " /CLASS I CK /DATA" 

734  ASSIGN  0Pat  H3  TO  Rawbladfllet 

735  PRINTER  IS  Prnter 

736  FRINT  . . . 

737  FRINT  "BLADE  RAU  DATA  FILE  "  .Rauib  1  adT  i  I  e* 

738  FRINT  . . . . . . . . . . 

739  PRINT  "" 

740  PRINT  "PROBE  DATA  ASSOCIATED  WITH  THE  BLADE  DATA  IS  CONTAINED" 

741  PRINT  "IN  FILE:  ".Rawfllet 

742  PRINT  "SCAN:", Scan 

743  PRINT  "SCANIUALUE  VOLTAGE- 

744  PRINT  "FORT  REAOIN6" 

745  FOR  N-1  TO  48 

746  ENTER  ?Path3iScanva< I ,N  I 

747  PRINT  USING  "00  .20X  ,M0. 3DE "  i N  .ScanvaM  ,N  1 

748  NEXT  N 

749  PRINTER  TS  Scren 

750  Pr 1 ntop t 1 on5 :  PRINT 

751  PRINT  "" 

752  PRINT  "ALIGN  PAPER  IN  PRINTER." 

753  FRINT  *" 

754  FRINT  "TO  PRINT  OUT  A  TABULATION  OF  THE  BLADE  DATA  SCALED  TO  " 

755  PRINT  "" 

756  PRINT  "ENGINEERING  UNITS.  PRESS  "SCALED  DATA"." 

757  PRINT  "" 

75B  PRINT  "PRESS  "60  ON"  TO  TERMINATE  PROGRAM." 

759  PRINT  "" 

760  ON  KEY  1  LABEL  'SCALED  OATA"  60TO  Prnt sc  I db ladda t 

761  ON  KEY  4  LABEL  "60  ON"  60T0  Loadoptionl 

762  Splnl2  :  GOTO  Sptn12 

763  Prnt  sc  1  db  ladda  l :  MASS  STORAGE  IS  VCLASSICK/REODATA" 

764  ASSIGN  *PatH4  TO  Sclbladflle* 

765  PRINTER  IS  Prnter 

766  PRINT  . " 

767  PRINT  "BLAOE  SCALED  DATA  FILE  " .SclbledT 1 le» 

7RR  PRINT 
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769  PRINT  •" 

770  PRINT  -PROBE  OATA  ASSOCIATED  UITH  THE  BLADE  DATA  IS  CONTAINED' 

771  PRINT  -IN  FILE:  ", Selflie* 

772  PRINT  "SCAN:', Sean 

773  FRINT  "SCANI VALVE  PRESS  (INCHES  H2o>- 

774  PRINT  "PORT- 

775  FOR  N-l  TO  48 

776  ENTER  PPa t h4 iPrnt da t a< I  ,N  ) 

777  PRINT  VSIN6  'DO  ,20X ,MD . 3DE " iN ,Prnt da t a<  I ,N) 

778  NEXT  N 

779  Loadopt Ion! :  PRINTER  IS  Seren 

780  PRINT  . . . . . . . 

781  PRINT  ■■ 

782  PRINT  "TO  LOAD  PROGRAM  TO  REOUCE  THE  ACQUIRED  DATA" 

783  PRINT  ” 

784  PRINT  'PRESS  ”CALC-‘.  PRESS  "60  ON"  TO  TERMINATE  THE  PROGRAM- 

785  PRINT  " 

786  PRINT  . . . . . . . 

T87  ON  KEV  I  LABEL  *CALC*  GOTO  Loadupt 

788  ON  KEY  4  LABEL  'GO  ON-  60T0  Pin 

789  Sp tnl 3 :  60T0  Splnl3 

790  Loadupl:  MASS  ST0RA6E  IS  "/CLASSICX/PROGS- 

791  LOAD  -CALC-.  10 

792  Fin:  FRINT  . . . . . . . . . 

793  FRINT  . . . . . . . . . 

794  PRINT 

795  PRINT  '  ENO  OF  PROGRAM- 

796  PRINT  •* 

797  PRINT  . . . . . . • . . . . 

798  PRINT  . . . him . ............... 

799  END 
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B7.2  Reduction  Program  CALC 

10  I  PROGRAM  CALC 

20  I  THIS  PROGRAM  TAKES  THE  FILES  OF  DATA  COLLECTED  FROM  THE  PROBE(S) 

30  I  AND  REDUCES  THE  DATA  TO  USEFUL  ENGINEERING  QUANTITIES  THESE 

40  1  UALUES  ARE  PRINTEO  IN  TABLE  FORM. 

41  (MUCH  OF  THE  CODING  IN  THIS  PROGRAM  HAS  BEEN  PREVIOUSLY  COMMENTED  ON 

42  IIN  PROGRAM  ACQUIRE. 

50  OPTION  BASE  ! 

70  DIM  ReddaHI  .106) 

71 

72 

60  DIM  P(  6  .6  ) 

90  OIM  X ( 6  ,6  ) 

91  OIM  Pu( 6  ,6  ) 

92 

94  DIM  Xu(G.E) 

95  DIM  Knarayl 100) 

96 

98  DIM  Prbposl 100  ) 

99  DIM  Aarayl 100) 

101  DIM  B arayf 100) 

102  MAT  Reddat-  (0) 

103  MAT  Knaray-  (0) 

104  MAT  Prbpos*  10) 

105  MAT  Aaray«  (0) 

106  MAT  Baray-  (0) 

107  OEG 

108  Prnter*701 

109  Scren-I 

110  Fir9lbladeprt«4 
I  I  I 
112 

1  1  4  La9tbladeprt-4B 
115  G-1.4 

HE  Cp-.24 

120  LOAOSUB  ALL  FROM  VCLASS1CK/ROUT INES/SUBCALC' 

130  MASS  STORAGE  IS  ' /CLASS ICK/REODAT A' 

131  PRINT  . . . . . 

132  PRINT  " 

134  PRINT  -ENTER  THE  NAME  OF  THE  FILE  CONTAINING  THE  PROBE  DATA  SCALED" 

135  PRINT  -TO  ENGINEERING  UNITS' 

13E  INPUT  Sc  Idle* 

140  ASSIGN  ?Path1  TO  Sclflle* 

141  PRINT  • . . . . 

142  PRINT  '" 

144  PRINT  'ENTER  THE  PROBE  COEFFICIENT  FILE  FOR  X  VELOCITY.  THIS  WILL  BE  ' 

145  PRINT  '' 

I4G  PRINT  'FOR  THE  LOWER  PROBE  IF  TWO  PROBES  ARE  BEING  USED.' 

148  INPUT  Read.* 

151  ASSIGN  0Path2  TO  Readx* 

160  ENTER  »Path2iX( .  ) 

161  PRINT  . . . . . 

162  PRINT  •' 

170  PRINT  'ENTER  THE  NAME  OF  THE  COEFFICIENT  FILE  FOR  PHI.  THIS  WILL  BE  ' 

171  PRINT  *' 

172  PRINT  'FOR  THE  LOWER  PROBE  IF  TWO  PROBES  ARE  BEING  USED.' 

174  INPUT  Readp* 

180  ASSIGN  0P«tb3  TO  Readp* 

190  ENTER  0PaIh3iP< • > 

191  PRINT  . .  .........  i 

192  PRINT  " 

200  PRINT  'IF  DATA  WERE  COLLECTED  WITH  ONE  PROBE,  PRESS  '*  ONE  PROBE"' 

201  PRINT  ” 

220  PRINT  'IF  DATA  WERE  COLLECTEO  WITH  TWO  PROBES,  PRESS  "TWO  PROBES'" 

221  PRINT  ” 


•AN  ARRAY  FOR  THE  SCALEO  DATA  FROM  ACQUIRE. 
•RECALL  THAT  THE  SCALED  DATA  WAS  STORED  BY 
IA  RANDOM  OUTPUT  STATEMENT. 

•THE  ARRAY  FOR  THE  PHI  COEFFICIENTS. 

•  THE  ARRAY  FOR  THE  X  VELOCITY  COEFFICIENTS. 
•IF  2  PROBES  USEO  THEN  THE  PHI  ARRAY  FOR 
•THE  UPPER  PROBE. 

IKN  VALUES  STORED  IN  AN  ARRAY. Kn-K  IN  TABLE 
•I  OF  CLASSICK  THESIS. 

•AN  ARRAY  OF  VALUES  USED  IN  THE  CALCULATION 
•OF  BLADE  CP’S. 


•ALL  ANGLES  WILL  BE  IN  DEGREES. 


•FIRST  SCANIVALVE  PORT  ASSIGNED  TO  THE 
•INSTRUMENTED  Bl ADE  THAT  IS  OF  INTEREST 
•IN  THE  CP  CALCULATION. 

•LAST  '  '  'ect. 
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224  PRINT  . . . . . . . . •' 

225  ON  KEY  1  LABEL  'ONE  PROBE '  60T0  Nunberprbsl 

226  ON  KEY  4  LABEL  'TUO  PROBES'  60T0  Nunberpr'b»2 

227  Spin! !  60T0  Spin! 

220  Numberprbs I :  Noofprbs-I 

229  60T0  Checknoofprbs 

231  Nunberprba2 :  Noofprbs”2 

240  Checknoof prbs !  IF  Noofprbs"2  THEN 

250  MASS  STORAGE  IS  ' /CL ASS ICK/REDDAT A' 

251  PRINT  . . . . ' 

252  PRINT  ■' 

253  PRINT  'ENTER  THE  FILE  NAME  FOR  THE  UPPER  PROBE  COEFFICIENTS  FOR  Xvel.* 

254  INPUT  ReadxuS 

255  ASSIGN  0Peth2u  TO  ReadxuS 

25S  ENTER  0Path2u|Xu< • t 

259  PRINT  . . . . . . . . . . ■ 

260  PRINT  " 

261  PRINT  'ENTER  THE  FILE  NAME  FOR  THE  UPPER  PROBE  COEFFICIENTS  FOR  PHI.' 

262  INPUT  ReadpuS 

263  ASSIGN  SPeth3u  TO  ReadpuS 

264  ENTER  *Path3uiPu< •  ) 

267  FRINT  * . ••••• . ' 

268  PRINT  *' 

269  PRINT  'ENTER  THE  FILENAME  FOR  THE  DATA  TO  BE  CALCULATED  FROM  LOUER  PROBE  * 

270  INPUT  CalcIflleS 

273  CREATE  BOAT  Calcl f 1  let ,  1 00 

274  ASSIGN  0Palh4  TO  CalcIflleS 

275  PRINT  . . . . . ...... 

276  PRINT  "  ' 

277  PRINT  'ENTER  THE  FILENAME  FOR  THE  DATA  TO  BE  CALCULATED  FROM  UPPER  PROBE' 

278  INPUT  CalcuflleS 

281  CREATE  BOAT  Caleu f 1 1 et ,  1 00 

282  ASSIGN  PFathS  TO  CalcuflleS 


283 

284 

285 

286 
287 
208 
2B3 

290 

291 

(•< 
l  • 

i  • 

i  • 

l « 

l  • 

I  • 
t  • 

l  • 

NOTE 

:  THE  SCANIUALUE  SENSES  THE  PRESSURE  DIFFERENTIAL  FROM 
ATMOS.  THE  SCANIUALUE  IS  CALIBRATED  SO  ATMOS  PRESS(Po) 
REAOS  ZERO.  THE  PRESS  SENSED  AT  A  PORT  IS  THE  PORT 

PRESS  MINUS  Pa  I. e.  .GAGE  PRESS.  TO  ELIMINATE  ERRORS  DUE 
TO  OUM  DRIFT,  THE  PRESS  SENSED  BY  PORT  1  OF  THE 
SCANIUALUE  <Ptare-Pa-Pa  )  IS  SUBTRACTED  FROM  EACH 
SCANIUALUE  PORT  READING. 

■  1 

294 

l  • 

295 

l  • 

296 

l  # 

UARIABLE 

UARIABLE 

PORT /CHANNEL 

DATA  ARRAY 

297 

1  • 

REPRESENTS 

298 

1  • 

299 

1* 

Plare 

Pa-Pa 

FORT  1 

Reddatl  1,1) 

300 

l  • 

Peal 

Peal -Ftare 

FORT  2 

Reddalt 1  ,2  ) 

301 

1  • 

Pd 

Pplenun-PIare 

PORT  3 

Reddat  (1,3) 

302 

i  • 

P» 

Pwel 1 s tel lc-Plare 

PORT  4 

Reddatl 1  ,4  ) 

303 

i  • 

PI 

P 1  -Plare 

PORT  5 

Reddatl  1  ,5) 

304 

i  • 

P2 

P2-Ptare 

PORT  6 

Reddatl 1  ,6  ) 

305 

1 1 

P3 

P3-Plar© 

PORT  7 

Reddatl 1  .7 ) 

306 

l  • 

P23 

(P2*P3»/2 

307 

l  • 

P4 

P4-Ptere 

PORT  8 

Reddatl 1  ,8 ) 

308 

t  • 

P5 

P5-Ptare 

PORT  9 

Reddatl 1  ,9) 

309 

I  # 

P  Ip 

P tola Iprndl 1 -Plare 

PORT  10 

Reddatl  1,10) 

3'0 

1  • 

Psp 

Palelprndl 1 -PI  are 

PORT  11 

Reddatl  1,11) 

31  1 

l  • 

BLANK 

PORT  12 

Reddatl  1,12) 

312 

i  • 

Plu 

Ptu-Ptere 

PORT  (3 

Reddatl  1,13) 

313 

!  • 

P2u 

P2u-Ptare 

PORT  14 

Reddatl 1  ,14  ) 

314 

l  • 

P3u 

P3u-Ptare 

PORT  15 

Reddatl  1,15) 

115 

i  • 

P23u 

( P2ufP3u  1/2 
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316 

1  • 

P4u 

P4u-Plare 

PORT  IE 

Reddat ( 1  , 1 G  > 

317 

1  • 

PSu 

P5u-Plara 

PORT  17  _ 

ReddaK  1  .17) 

318 

1  * 

BLANK 

PORT  18 

ReddaK  1,18) 

319 

1  • 

BLANK 

PORT  19 

Reddat  (  1  .19) 

320 

1  • 

Poa  1 1 

L  PRB  POSIT 

INPUT 

ReddaK  t  .20  ) 

321 

1  * 

Poa 1 tu 

U  PRB  POSIT 

INPUT 

Reddat (1  ,21  ) 

322 

1  • 

Yaw 

LOWER  PRB  YAW 

24 

ReddaK  1  .22  ) 

323 

1  • 

Yauu 

UPPER  PRB  YAW 

21 

ReddaK  1  ,23) 

324 

1  * 

Tenp 

TOTAL  TEMPI  PLENUM) 

CHAN  10 

ReddaK  1  ,24  ) 

325 

1  • 

Pa 

ATMOSPHERIC  PRESS 

INPUT 

ReddaK  1  .25  > 

326 

•  • 

327 

I « 

330 

OIM 

Calel<l00, 

25) 

331 

MAT 

Calcl*  (0) 

332 

Plnl t lal 1-0 

1  INITIALIZES 

THE  CONDITIONS 

333 

335 

336 

337 
330 

339 

341 

342 

343 

344 

346 

347 

340 

349 

350 

351 

352 

353 

354 

355 

356 

357 
359 

359 

360 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 
370 

379 

380 
301 

382 

383 

384 
195 


T  I  nl t la  1-0 

Paint t lal 1-0 

FOR  N-l  TO  100 

ENTER  tPathl .NiReddatf • > 

ON  ENO  SPathl  SOTO  Twoprlntcalcl 
P  t  are-ReddeK  1.1) 


•ENSEMBLE  VALUES  IN  SUBROUTINE  ENSEMBLE 


'THE  ARRAY  IS  ENTERED  WITH  A  RANDOM 
I  STATEMENT . 

•REASSIGNMENT  OF  ARRAY  ELEMENTS  TO 
•IDENTIFIABLE  QUANTITIES  TO  BE  USEO  IN 
•IN  SUBROUTINE  CALCULATIONS. 


Pcal-ReddaK I  ,2  ) 

Pp-Reddaf<  t  .3 ) 

Pa-ReddaK  •  .4  ) 

PI-ReddaK • .5) 

F2-Reddat< I .6  > 

P3-Reddat< I .7) 

P23-<P2*P3>/2 
P4-Reddal  < I .8! 

P5-ReddaK  t .9) 

Ptp-Redda t ( 1,10) 

Psp-ReddaK  •  .1  I) 

•  BLANK -ReddeH  I  .12) 

Poa  1 1-ReddaK I ,20) 

Yaw-RaddaK  I  .22  )  1YAW  ANGLE  CORRECTION  COULD  BE  MADE 

•HERE  IF  NOT  ALREADY  DONE  IN  ACQUIRE. 

Temp-ReddeK • .24 ) 

Pa*Reddat< • .25) 

•CALCULATE  BETA  AND  GAMMA  COEFFICIENTS 
CALL  BocalcfPa.PI  ,P23  ,P4 ,P5  .Beta , Senna  ) 

•  CALCULATE  THE  ENSEMBLE  REFERENCE  VALUES  OF  PLENUM  PRESS  .PLENUM  TEMP  AND  PA 
CALL  Enaenb  te<  Pd  ,P Ini t lal  ,Pe ,  Pa  Initial  ,Tenp  .Tlnltlal  .Ppavg  ,  Paavo  .Teiapavg  ,N  ) 
•CALCULATE  Xvel  AND  Phi 

CALL  XphlcalelBeta  ,6anna .Xvel ,X( • > ,PhI ,P( •  > ) 

•CALCULATE  Xref 

CALL  XrefcalctPa  ,Pp  ,6  ,Xref  ) 

•CALCULATE  QREF  AND  VREF 

CALL  Qvref  calc ( Xref  ,Cp  .Taiap  .6  ,Pp  .Pa  .Qraf  ,Vref  ) 

•CALCULATE  VELOCITY  AND  MACH  *  AND  0 

CALL  Viaqcalel  Xvel  ,Cp  .Taiap  .6  ,VaI  .Mach  ,PI  ,Pe  ,Q  ) 

•  CALCULATE  THE  INTEGRANO  FOR  THE  AVOR  EXPRESSION 
CALL  KncalcfPa  ,P1  ,Pp  ,Xvel  ,Xraf  ,S  .Yew  ,Kn ) 

•CALCULATE  THE  COEFFICIENT  OF  PRESSURE  TERM  TO  BE  MASS  AVERAGEO. 

•THESE  TERMS  ARE  USED  IN  THE  CALCULATION  OF  THE  LOSS  COEFFICIENT. 

CALL  CoefpresafPI  ,Pp  ,Pa  .Xvel  ,6  .Cpa  ,Cpt  > 

•CALCULATE  THE  QUANTITIES  TO  BE  MASS  AVERAGED.  MULTIPLY  THESE  VALUES 
•BY  Kn  TO  6ET  THE  INTE6RAN0  REQUIRED  TO  CALCULATE  THE  MASS  AVERAGED  CP'S 
CALL  Cp  •  nleocandl  Pp.P1  ,Pa  ,S  ,Xve  I  .A  ,B  ,Xn  ) 

I  CALCULATE  Pp-PI/Qref  FOR  PLOTS 
CAlt  Pref^r-ef  IPp.PI,  Qref.P^I 
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386 

I  CALCULATE  STATIC  PRESSURE  UPSTREAM 

387 

CALL  StalicpressTPI  .Fa  .Xvel  ,6  ,Ps  ) 

399 

IDEFINE  AN  ARRAY  TO  STORE  CALCULATED  VALUES 

390 

CalclTN.I  KFoalt 

391 

Calc  1 ( N  ,2 >-Beta 

392 

Ca 1 c I  (  N ,3 )-Gamwa 

393 

CaIcl<N.4 >*Phi 

394 

Cal c  1  <  N  .5  >*Xvel 

395 

CalcKN. 6  )-Xref 

396 

Ca  1  c  I  <  N  ,  7  )*Uel 

397 

Ca 1 c  1  <  N  .8  )-Mach 

398 

CalcKN, 9>-Yaw 

399 

Calc  1 ( N ,  1 0  )'Ko 

400 

CalclTN.I  1  >-Cpt 

40! 

Ca 1c 1 1 N  ,  1 2  )-Cps 

402 

Ca  1  c  1  <  N  .  1 3  )-Qref 

403 

CalclTN.14  )-Uref 

404 

CalcKN.  151-0 

405 

CalcKN. 16  >-A 

406 

CalcKN,  17  )-B 

407 

CalcKN.  !8>-Fq 

408 

CalcKN,  l9»*Pa 

IP  a  &  Ps  ARE  USED  FOR  STATIC  PRESS 

409 

'RISE  CALCULATION  IN  PROGRAM  LOSS. 

4  1  1 

CalcKN. 20  l-Pa 

'THESE  VALUES  ARE  NOT  PRINTED. 

412 

Knaray(N)-CalcKN.I0) 

'WANT  TO  STORE  MORE  THAN  JUST  ONE 

413 

IKn  VALUE  FOR  MASS  AVERAGING 

4  1  4 

'CALCULATIONS. 

4  15 

Prbpo«( N  >*Ce lc 1 <  N  ,  1  ) 

!  "  "  "• 

416 

Aar  ay  <  N  >*CalcKN,T6  ) 

,  ■  "  “• 

417 

Baray<  N  )-Calc 1 ( N  # 1 7 ) 

1  "  "  "  " 

4  10 

Scan-N 

419 

NEXT  N 

420 

TwoprJ  ntca let:  OFFENOfPathl 

421 

'CALCULATE  ENSEMBLE  AVERAGE  OP  XREF 

422 

CALL  XrefenaeableTPaavq  .Ppavg .6 ,Xr  eTavg  ) 

423 

'CALCULATE  ENSEMBLE  AVERAGE  OP  VREF 

424 

CALI.  VrefensenbleT Xrefavg ,Cp .Terpavg ,Vrefavg  ) 

425 

'CALCULATE  ENSEMBLE  AVERA6E  OP  GREF 

426 

CALL  Ore f ensenble< Peevg  ,  Ppavg,  G.Xrefevg,  Or efavg  ) 

428 

PRINT  *' 

429 

PRINT  ‘ALIGN  FAFEP  IN  PRINTER.  UHEN  READY  FOR  A  HARDCOPY  OF  I HE  ‘ 

4  30 

PRINT  ‘CALCULATED  DATA,  PRESS  “REDUCED 

DATA".' 

431 

PRINT  “ 

433 

ON  KEY  1  LABEL  "REDUCEO  DATA"  60T0  Prntdata2 

434 

Spln2:  60T0  5p!n2 

4  35 

Prnldete2:  PRINTER  IS  Prnter 

437 

PRINT  TILE  '  .Calcl  f  1  let 

440 

FRINT  “ 

44! 

PRINT  ‘SCAN  L  PRB  BETA  6AMMA  PHI  Xvel 

Xr  e  f 

" 

442 

PRINT  ‘  POSIT' 

443 

FOR  N*>  1  TO  Scan 

444 

PRINT  USING  •40,3X,40.2D,3X,MD.30E,3X,MD 

.  3DE ,3X  .MD.3DE ,2X .MD.3DE ,2X .M0.3DE 

'|N .CalcKN,  I  >, CalclT  N.  2  >, CalclT  N, 3  >, CalcKN, 4  1, CalcKN, 51, CalcKN, 6  > 
415  NEXT  N 

446  PRINT  ■' 

447  PRINT  . . . ••••■ . . . . . . 


448  PRINT  '* 

449  PRINT  ‘SCAN  VEL  VREF  Q  QREF  MACH 
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YAW- 

450  PRINT  ■ 

0E6  ’ 

451  FOR  N-l  TO  Scan 

452  PRINT  LISINS  '40 ,3X  ,MO .  30E  ,3X ,HD.  3DE  ,3X ,M0. 30E  ,  3X  ,M0. 3DE  ,  2X  ,MD. 30E  ,2X  ,MD .  3D 
E"  iN  .Calc  1  <N,7),Calcl(N,I4)  .Celcl (N ,  15  > , Calc  1  (N ,  1 3  )  .Calc  1  ( N  t8),Calcl<N,9) 

453  NEXT  N 

454  PRINT 

455  PRINT  . . . . . . . . . 


456  PRINT  " 

457  PRINT  ’ 


458  PRINT  *■ 

459  PRINT  ’SCAN  Praf-PU /Qref * 

460  FOR  N-1  TO  Scan 

461  PRINT  USINS  "40 ,3X  ,N0 . 3DE  '(N.CalelN.tB) 

462  NEXT  N 

463  PRINT  " 

464  PRINT  .......Mi...... . . . . 


'465  PRINT  •' 

466  FRINT  'ENSEMBLE  AVERAGES " 

467  PRINT  '■ 

468  PRINT  -PPAV6  PAAV6  TEMPAVG  XREFAVG  VREFAVG 

QREFAVG  ' 

469  PRINT  USING  "MO . 30E ,5X ,M30 . 2DE ,5X ,3D. 2D  ,SX  ,MD . 30E  ,5X  MD . 3DE  ,3X  ,M0 . 30E ' i Ppa 
vg,Paavg,Tenpavg,Xrefavg,Vrefavg,Qrefavg 

470  OUTPUT  *Path4iCalcl<«  )  IOUTPUT  STATEMENT  IS  SERIAL. 

471  DIM  Calcul 100 ,25 )  I  SEPARATE  CALC  ARRAY  FOR  REDUCED 

472  'DATA  FROM  UPPER  SURVEY  STATION. 

473  MAT  Calcu-  (0) 

474  FOR  N*l  TO  100 

475  ENTER  0Pathl  ,N|Reddat< •  I  IENTER  STATEMENT  IS  RANDOM. 

476  ON  END  PPathI  GOTO  TwoprintcalcZ 

477  Ptare-Reddat( I  ,1  > 

478  Fp=Reddat< I  .3  ) 

479  Ps»Reddat  <  1,4) 

490  Ptp-Reddat<  I  .10) 

481  Psp-Reddatl I  .11  ) 

482  Plu-Reddatl  1,13) 

483  P2u=Redda<< I ,14) 

484  P3u-Reddel< I  .15) 

485  P2u3u-<P2u»P3u >/Z 

486  P4u-Reddat<  1.16) 

487  PSu=Reddat< I ,17) 

488  'BLANK.REDDATI I ,18) 

489  'BLANK»REDOAT( I ,19) 

490  Poaltu-Reddetl  I  .21  > 

491  Yawu»Reddat< I .23) 

492  Temp-ReddaU  1  ,24  > 

493  Pa-Reddat<  I  ,25) 

494  'CALCULATE  BETA  AND  GAMMA  COEFFICIENTS 

495  CALL  Bgca lc< Pa ,P1u ,P2u3u ,P4u ,P5u .Oetau ,6annau > 

496  'CALCULATE  Xvelu  ANO  Phlu 

497  CALL  Xphlca let Belau ,6annau .Xvelu  ,Xu( •)  ,Phlu  ,  Pul •> ) 

498  'CALCULATE  Xrefu 

499  CALL  XrefcalcIPa.Pp.G, Xrefu) 

500  'CALCULATE  QREF  ANO  VREF 

501  CALL  Qvrefcalel Xref ,Cp  ,T«np ,G ,Pp ,Pa  ,Oref ,Vref ) 

502  'CALCULATE  VELOCITYu  ANO  MACHu  t  ANO  Ou 

503  CALL  Vnqcalel Xvelu  ,Cp  ,Tenp ,G ,Velu .Machu  ,P I u ,Pe  ,Qu ) 

504  '  CALCULATE  THE  INTEGRAND  FOR  THE  AVDR  EXPRESSION 

505  CALL  Knrelel  Pa  .Flu  ,Pp  .Xvelu  .Xrefu  ,G  ,Yewu  ,Knu  > 

506  '  CALCULATE  THE  COEFFICIENT  OF  PRESSURE  FOR  THE  UPPER  PROBE. 

507  '  THIS  TERM  WILL  86  MASS  AVERAGED  ANO  USED  IN  THE  CAICULAT10N  OF  THE 
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508  1  LOSS  COEFFICIENT.  THE  Cpsu  TERM  IS  NOT  USED  IN  THE  LOSS  COEFFICIENT 

509  i  CALCULATION. 

5)0  CALL  Coe f press ( P I u  ,Pp  ,Pa  ,Xve I u ,G ,Cpsu  ,Cp tu  ) 

511  I  CALCULATE  Pp-P)/Oref  FOR  PLOTS 

512  CALL  PrefqrefIPp ,Pt  .Oref .Pqu > 

513  I  CALCULATE  THE  DOWNSTREAM  STATIC  PRESSURE 

514  CALL  St e t lcpressl P !u .Pa .Xvelu ,6 ,Psu  1 

516  Ce Icul N  .  1  >-Pos 1 tu 

517  Ca 1  cut N  ,2  (“Be t au 

518  Ca lcul N  ,3  )*Gannau 

5 1 9  Calcul N  .4 >-Phlu 

520  Cal eu< N  ,5  )-Xve lu 

521  Calcu<N,6  l-Xrefu 


522 

Calcut N ,7  )-Uelu 

523 

Calcut N ,8  )-Machu 

524 

Cal cut N ,9 )"Yawu 

525 

Calcu(N , 10 )-Knu 

525 

Calcut  N  ,  1 1  )»Cptu 

527 

Ca 1 cut  N , 1 2  )*Cpau 

528 

Ca lcu<  N  ,  1 3 )-0u 

529 

Ca  1  cut  N , 1 4  >*Pqu 

530 

CalcutN.igi-Pa 

•Calcul N , 15  1  TO  Calcu(N.18)  WILL  HAUE 

531 

Cal  cut  N ,2C  >-Psu 

•ZEROS.  ARRAY  ELEMENT  ASSIGNMENT  IS 

532 

•CONSISTENT  WITH  LOSS  PROGRAM  AND 

533 

•ONE  PROBE  SURDEY. 

535 

Scan*N 

536 

NEXT  N 

537  Tuopr i nt ca 1 c2 •  OFF  ENO  8PalM 

538  PRINT  . . . . 


.  . . .  i 

539 

540 
54  1 

542 

PRINT  " 

FRINT  . 

PRINT  "FILE 
PRINT  '•••• 

‘  .CalcufJle* 

•  •  *  •  1 

544 

PRINT  '• 

545 

FRINT  -SCAN 

U  PRB  BETAU  GAMMAU  PHIU  Xvelu  • 

546 

PRINT  ■ 

POSIT' 

547 

FOR  N-1  TO  ' 

Scan 

548 

PRINT  USING 

"40 ,2X .40.20 ,3X .M0.3DE ,3X .MD.3DE ,3X  .MD.3DE ,3X  ,MD . 3DE " iN  ,Ca 1 cui 

N,t  >. Calcul N, 2), Calcul N. 3). Calcul N, 4), Calcul N, 5) 

549  NEXT  N 

550  PRINT 


«  •  •  • 

551 

PRINT 

552 

PRINT  'SCAN  VELU 

OU 

Pref-Ptu/Qref 

MACHU 

YAUU" 

553 

PRINT  • 

DEG* 

554 

FOR  N»1  TO  Scan 

555  PRINT  USING  '40  ,3X  .NO . 3DE ,3X ,MD . 30E  ,3X  .MO . 3DE  ,3X  ,MD. 30E ,3X  , MO. 3DE * (N .Ca 1 cu 
<N.7),CalculN.I3),Calcu(N,U),Calcu(N.0),Calcu<N,9) 

556  NEXT  N 

557  PRINT  . . . . . . . . . . 


558  PRINTER  IS  Scren 

559  OUTPUT  0Path5iCaleu( •  ) 

550  ELSE 

551  MASS  STORAGE  IS  ' /CL ASS ICX /REDOAT A' 

562  PRINT  . . . . . 

563  PRINT  " 

554  PRINT  -ENTER  THE  FILENAME  FOR  THE  DATA  TO  BE  CALCULATED  FROM  THE  PROBE  ■ 
565  INPUT  CalcM  let 

555  CREATE  BOAT  Ca Ic f t le«  .  100 

567  ASSI6N  0PatM  TO  Caleftlef 

568  I...........  . . . . . . . 
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.  . . .  ONE  PROBE  . . 

•SCAN1 VALVE  PORT  ANO  SCANNER  CHANNEL  ASSIGNMENT* 


571 

I  • 

• 

572 

!  • 

» 

573 

I  • 

VARIABLE 

VARIABLE 

PORT /CHANNEL  OAT  A  ARRAY  • 

574 

1  • 

REPRESENTS 

575 

I  • 

576 

!  • 

Ptare 

Pa-Pa 

PORT  1 

Reddatt 1,1) 

577 

i  • 

Peal 

Pcal-Pta re 

PORT  2 

Reddat ( 1  ,2  ) 

578 

i. 

Pp 

Pplenum-Ptare 

PORT  3 

Reddat  < 1 .3  ) 

578 

i  • 

Pa 

Pwal I  at  at lc-Pt are 

PORT  4 

Reddat ( 1 ,4 ) 

590 

i  • 

PI 

P 1 -Ptare 

PORT  5 

Reddat! 1  ,5  ) 

58 1 

i  • 

P2 

P2-Plare 

PORT  6 

Redda  t ( 1  ,6  > 

582 

i  • 

P3 

P3-Ptare 

PORT  7 

Reddat ( 1  ,7  ) 

583 

t« 

P23 

( P2+P3  )/2 

584 

i  • 

P4 

P4-Ptare 

PORT  8 

Reddat! 1 ,8 ) 

585 

•  • 

P5 

P5-Pt  arc 

PORT  8 

Reddat! 1 ,9) 

586 

Pip 

Ptotalprndll -Ptare 

PORT  10 

Reddat!  1,10) 

587 

1  • 

Pap 

Petalprndt 1 -PI are 

PORT  1) 

Reddat  11,11) 

588 

1  • 

BLANK 

PORT  12 

Reddat!  1,12) 

599 

1  • 

BLANK 

PORT  (3 

Reddat!  1,13) 

580 

1  • 

BLANK 

PORT  14 

Reddat! 1,14) 

581 

1  » 

Poalt 

PRB  POSIT 

INPUT 

Reddat! 1,15) 

582 

t  • 

Yaw 

PRB  YAU 

CHAN  24 

Redda  t  < 1  .16) 

593 

1  • 

Tenp 

TOTAL  TEMP(PLENUM) 

CHAN  10 

Reddat  (1,17) 

591 

1  • 

Pa 

ATMOSPHERIC  PRESS 

INPUT 

Reddat! 1.18) 

595 

1  • 

596 

i  • 

599 

DIM 

Ca  1  c  (  100,25) 

600 

MAT 

Calc-  (0) 

601 

Plnltlal-B 

I  intializes 

CONDITIONS  FOR  ENSEMBLE 

T  lnl t la'  V* 

Pa  1 ni 1 1  a  1  -  0 

for  -i  to  tea 

ENiEP  fPalht ,N i Redda l  (  • ) 

UN  END  ?F«thf  GOTO  Prlntcalel 
Ptare-Reddat  (  1,1) 


(CALCULATIONS  IN  SUBROUTINE  ENSEMBLE. 


I  ARRAY  ENTERED  RANDOMLY 


Ptare-Reddat ( 1,1)  IPEAS5IGNMENT  OF  ARRAY  ELEMENTS  TO 

(TO  IDENTIFIABLE  QUANTITIES  USED  IN 
(SUBROUTINE  CALCULATIONS. 

Pcal*Reddel< I  .2  ) 

Fp-Reddat!  I  .3) 

Fs*Reddat  <  1,8) 

P I  -Redda  t  (  I  ,5) 

P2-Reddat( 1  ,G  ) 

P3*Reddat< I  ,7  ) 

F23-(P2*P3  )/2 
P4-Reddat(  I  ,8) 

P5“Redda I ( t  ,8  ) 

Ptp-Reddat!  1,10) 

Pap-Reddat (1,11) 

'BLANK -Reddat!  I  ,12  ) 
l BL ANK-Redde t  < 1,(3) 

IBLANk-Reddat <  (  .  14  ) 

Posl t*Reddet<  I  ,  IS  ) 

Yew-Redda ( ( t , IS ) 

Tenp-Reddat !  1,17) 

Pa-Reddet! 1 ,18) 

(CALCULATE  BETA  AND  6AMMA  COEFFICIENTS 
CALL  flgcalc!Pa,PI  ,P23  ,P4  ,P5  .Beta  ,6a«cB  ) 

(CALCULATE  THE  ENSEMBLE  REFERENCE  VALUES  OF  PPLENUM .PLENUM  TEMP  ANO  PA. 
CALL  Eneenble! Pp  .Pint  t ial ,Pa  .Pelnl t let ,Tenp  ,T lnl t la  1 .Ppavg ,Paavg  .Tenpavg  ,N  ) 
(CALCULATE  Xvel  AND  Phi 

CALL  Xphlcalc(Beta  ,6a«eia  ,Xvel,X<.),Phl,P(.>) 
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G 35  'CALCULATE  Xref 

636  CALI  XrefcalcTPa.Fp  .G.Xref) 

637  'CALCULATE  OREP  AND  VREF 

630  CALL  Qvre f ca lc T Xref ,Cp , Tenp ,G ,Pp ,Pa ,Qre f ,Vre f  1 

639  'CALCULATE  VELOCITY  AND  MACH  »  AND  Q 

640  CALL  Vnqca 1 c < X ve 1  ,Cp , Tenp ,6 ,Ue 1  .Mach ,P 1  ,Pe tQ ' 

641  I  CALCULATE  THE  INTEGRAND  FOR  THE  AVDR  EXPRESSION 

642  CALL  KncaldPa.PI  .Pp.Xvel  .Xref  .G.Yaw.Knl 

643  I  CALCULATE  THE  COEFFICIENT  OF  PRESSURE  TERMS  TO  BE  MASS  AUERAGEO. 

644  '  THESE  TERMS  ARE  USED  IN  THE  CALCULATION  OF  THE  LOSS  COEFFICIENT. 

645  CALL  Coe f  press T  P I  ,Pp  ,Pa  ,Xve  1  ,6  .Cpa  ,Cpl  > 

646  'CALCULATE  THE  QUANTITIES  TO  BE  MASS  AVERAGED.  MULTIPLY  THESE  VALUES 

647  10V  Kn  TO  GET  THE  INTEGRANO  REOUTREO  TO  CALCULATE  THE  MASS  AVERAGED  CP’S 

649  CALL  CplnlegrandTPp.Pt  .Pe.G.Xvel  .A.B.Kn) 

649  ICALCLULATE  Pp-PI/Qref  FOR  PLOTS 

650  CALL  Prefqref (Fp  ,PI  ,0ref .Pq ) 

651  '  CALCULATE  STATIC  PRESSURE 

652  CALL  S t a t  lcpressT  P I  .Pa  ,Xve  1  ,G  ,Ps  > 

653  'DEFINE  AN  ARRAY  TO  STORE  CALCULATED  VALUES 

654  CalcTN  , !  >-PosH 

655  CalcTN, 2 >-8ete 

656  CalcTN ,3  )*Ganna 

657  CalcTN. 4  >-Phi 

650  CalcTN  ,S >*XveI 

659  CalcTN. 6  )"Xref 

660  CalcTN  ,7  I'Vel 

661  CalcTN.0 >»Mach 

662  CalcTN  .9 >-Yaw 

663  CalcTN  ,  10 >-Kn 

664  CalcTN, 1  O-Cpt 

665  CalcTN. 12  l-Cps 

666  CalcTN. 131-Qref 

667  CalcTN. 14  )-Vref 

660  CalcTN. 151-Q 

669  CalcTN, I6)*A 

670  CalcTN. 171-0 

671  CalcTN,  10  >*Fq 

672  CalcTN. !9'.Pa 

673  CalcTN, 201-Ps 

674  KnarayTN >-CaJe<N, 10 1  UJANT  TO  STORE  THE  Kn  VALUE  IN  AN 

675  I  ARRAY  FOR  MASS  AVERAGING  CALCULATIONS 

676  Prbpos(N).  CalcTN.  1  )  I"  “ 

677  AarayT N  I'Ca  1  c ( N ,  1 6  I  l"  '" 

670  BarayTNl- CalcTN.  17)  I”  '* 

679  Scan-N 

600  NEXT  N 

681  Prlntcalcl!  OFF  END  fPathl 

682  'CALCULATE  ENSEMBLE  AVERAGE  OF  XREF 

683  CALL  Xref  enseetb lei Peavg  .Ppavg  ,6  .Xref  avg  ) 

684  'CALCULATE  ENSEMBLE  AVERAGE  OF  VREF 

695  CALL  Vre f ensenbleT Xre f avg ,Cp .Tenpavg ,Vre f avg 1 

686  'CALCULATE  ENSEMBLE  AVERAGE  OF  QREF 

687  CALL  Qre fensenb let Peavg .Ppavg ,6 , Xref avg ,Qre f avg 1 

680  PRINT  ’ . ■ 

G89  PRINT  " 

690  PRINT  'ALIGN  PAPER  IN  THE  PRINTER.  WHEN  READY  FOR  A  HARDCOPY  OF  THE  * 

691  PRINT 

692  PRINT  'CALCULATED  DATA,  PRESS  "REOUCED  DATA''  .* 

693  PRINT  " 

694  PRINT  ' . . . . . . . . . 

695  ON  KEY  4  LABEL  'REDUCED  DATA'  GOTO  Prnldatel 

696  Spln3:  60T0  Spln3 

697  Prnt  data  I '  PRINTER  IS  Prnter 

690  PRINT  ' . . . . . . . . 

699  PRINT  'FILE  '.Calcfllai 

7P0  PR  'NT  . . «••' 
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701  PRINT  •" 

702  PRINT  '• 


703  PRINT  ■" 

704  PRINT  'SCAN  PRB  BETA  GAMMA  PHI  Xvel 

Xre  T  " 

705  PRINT  •  POSIT' 

70S  FOR  N-1  TO  Scan 

707  PRINT  USING  *40 ,3X ,40 . 20 ,3X ,M0 . 30E ,3X ,M0 . 3DE  .3X  ,MD . 3DE ,3X ,M0 . 3DE t3X  ,MD . 3DE 
•iN.CalcIN.I  I,Calc(N,2),Calc(N,3)  ,Ca  1  c  (  N  ,  4  ),CaIc(N,5),Calc(N,6) 

709  NEXT  N 

709  PRINT 

710  PRINT  . . 


711  PRINT  •• 

712  PRINT  -SCAN  Uel  VreT  0  Oref  MACH 

YAU- 

713  PRINT  ■ 

0E6  ‘ 

714  FOR  N-1  TO  Scan 

715  PRINT  USING  "40 ,3X ,M0 . 30E ,3X  ,M0 . 3DE , 3X  ,MQ . 3DE  ,3X  ,MD . 3DE ,2X  ,MQ . 3DE ,2X ,MD . 30 
E " iN. Calel N, 7  1, Cal c ( N.  1 4  ).  Calc ( N. 15  1.  Ca Ic <N,  1 3). Cal c(N, 8 >,Calc<N. 9) 

716  NEXT  N 

717  PRINT 

719  PRINT  . . . 


719  PRINT  •* 

720  PRINT  -SCAN  PreF-PT /Ore f ’ 

721  FOR  N-1  TO  Scan 

722  PRINT  USING  ' 4D ,3X ,M0 . 30E" iN,Cale(N,10) 

723  NEXT  N 

724  PRINT  •• 

725  PRINT  * . . 


726  PRINT  •• 

727  PRINT  -  ENSEMBLE  AVERAGES* 

729  PRINT 

729  PRINT  "PPAUG  PAAUG  TEMPAUG  XREFAUG  VREFAVG 

orefaug- 

730  PRINT  USING  "MO . 3DE ,5X ,M30 . 20E ,5X ,3D. 20 ,5X ,M0 . 30E ,5X ,MD . 3DE ,3X ,MD . 3DE " i Ppa 
vg.Peavg.Tenpavg.XreTavg.Vrefavp .OreTavg 

731  PRINTER  IS  Scren 

732  OUTPUT  0Paih4tCalc( •  )  I  SERIAL  OUTPUT  STATEMENT. 

733  ENO  IF 

734  PRINT  . . . . . . . . . . . 

735  PRINT  *• 

736  FRINT  "TO  CALCULATE  THE  CP’S  FOR  THE  BLADE  DATA.  PRESS  “BLADE  CP'S"" 

737  PRINT  •  PRESS  “60  ON" "  TO  CONTINUE." 

730  PRINT  •• 

739  PRINT  - . . . . . 

740  ON  KEY  I  LABEL  "BLADE  CP'S'  60TD  Calculatecp 

741  ON  KEY  4  LABEL  "GO  ON-  60TO  LoadepUon2 

742  Sptn4:  GOTO  Spln4 

743  CalcuIaTecp:  MASS  STORAGE  IS  * /CLASS I CK/RE  DDA  T  A  * 

744  PRINT  " 

745  PRINT  • . . . . . 

746  PRINT  *• 

747  PRINT  'ENTER  THE  FILE  NAME  OF  THE  BLADE  DATA  SCALED  IN  ENGINEERING  UNITS' 

749  INPUT  Sc Ibladf t let 

749  PRINT  . . . . . . . . 

750  ASSI6N  SPalhS  TO  Sclbladflla* 

751  PRINT 

752  PRINT  -ENTER  THE  FfLE  NAME  TO  STORE  THE  MASS  AVERAGED  CP’S  CALCULATED’ 

753  PRINT  "FROM  THE  BLAOE  OATA." 

754  INPUT  Bladcalc* 
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755  CREATE  BOAT  8 1 adca I ct , 1 00 

756  ASSIGN  pPathB  TO  Bladcale* 

757  DIM  Prnt  da  tat  I  ,48  1  IOIMENSION  STAJMENTS  FOR  BLADE  ARRAYS 

758  I  ARE  HERE  SO  ARRAY  SPACE  IS  ONLY  ASSI6NED 

758  'IF  BLADE  OPTION  IS  SELECTED. 

760  DIM  Cpnassavgl 48  ) 

761  MAT  Cpnassavg-  (0) 

762  MAT  Prnt  da  t a-  (0) 

761  PRINT  . ••>••••  ••••<•.. . . . ........ 

764  PRINT  " 

765  PRINT  -ENTER  THE  LIMITS  OF  INTEGRATION  l.e.,  THE  LOWEST  TO  THE  • 

766  PRINT  "HIGHEST  SCAN  NUMBER  DESIRED. ' 

767  PRINT  •- 

768  PRINT  . . . . . . ............. 

769  PRINT 

770  PRINT  • . ■ 

771  PRINT  " 

772  PRINT  -ENTER  THE  LOW  SCAN- 

773  INPUT  Loupolnt 

774  PRINT  . . . . . 

775  PRINT  " 

776  PRINT  -ENTER  THE  HIGH  SCAN- 

777  INPUT  Hlpnlnt 

778  LOADSUB  ALL  FROM  ■ /CLASS ICK/ROUT INES/LOSSCALC - 

779  1  INTEGRATE  A 

780  CALL  Oa l 1 nt ( Lowpol nt ,Hlpo 1 nt , Aarayt » ) .PrbposI •  1  ,  Ai nt g  1 

781  ' INTEGRATE  B 

782  CALL  Dat lnl < Loupolnt  .Hlpolnt  ,8aray< » >  .Prbposl •  1  ,Blntg  ) 

783  I  INTEGRATE  Kn 

704  CALL  Dal l nt ( Loupolnt ,Hlpo lnl .knar  ay (»  1  .Prbpos (•  1  ,knl ntg 1 

785  A 1 -Al nt g/knl nt g 

786  B I -B 1 nt g/knl nig 

787  ENTER  0FalbStPrntdata( • ) 

788  Pp'Prnt  da  t  «< I  , 3 1 

789  FOR  N-Flrstbladeprt  TO  Lastbladeprt  I  OBTAINED  FROM  PORT  ASSIGNMENT  SHEET 

790  P local-Prnt da ta< I ,N ) 

791  CALL  Cpcalc(A)  ,01  .Pp.PIoeal  .C) 

792  Cpnas savg( N )*C 

793  NEXT  N 

794  PRINT  - . . 

795  PRINT  ■■ 

796  PRINT  'ALIGN  PAPER  IN  PRINTER  AND  PRESS  •’BLADE  DATA”  FOR  HARD  COPY- 

797  PRINT  ■  OF  8LAOE  MASS  AVERASED  COEFFICIENTS  OF  PRESSURE.' 

798  PRINT  •* 

799  PRINT  . . . . . . . . . ......... 

800  ON  kEY  I  LABEL  'BLADE  DATA'  GOTO  Prntb 1 adeda t a 

80 1  SpinS:  GOTO  SplnS 

802  Prn t b 1 adeda t a :  PRINTER  IS  Prnter 

803  PRINT  . . . . • 

804  PRINT  -BLAOE  CP  FILE  -.Bladcalc* 

805  PRINT  . . . . . . . . . . . 


80S  PRINT  ” 

807  PRINT  ’SCANIVALVE  MASS  AVERAGED  COEFFICIENT- 

808  PRINT  'PORT  OF  PRESSURE 

809  FOR  N*Flrstbladeprl  TO  Lastbladeprt 

810  PRINT  USING  ’ 20 , 1 5X  ,M0 . 30E *  IN , Cpnas savgl N  ) 

81  I  NEXT  N 

812  OUTPUT  0Path6 iCpnessavgt •  1  I  SERIAL  OUTPUT  STATEMENT 

813  Loadoptlon2:  PRINTER  IS  Scran 

814  PRINT  ' . . . . . . . . . 

815  PRINT 

816  PRINT  'TO  LOAD  PROGRAM  THAT  CALCULATES  THE  AVDR  AND  LOSS  COEFFICIENT,’ 

817  PRINT  •• 

818  PRINT  ’PRESS  -'LOSS'-.  PRESS  "GO  ON"  TO  TERMINATE  THE  PROGRAM.- 

fl 1 9  PRINT  " 
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820  PRINT  . . . * . 

B2I  ON  KEY  I  LABEL  "LOSS'  GOTO  Loedup2 

822  ON  KEY  4  LABEL  "60  ON"  60T0  Fin 

823  Sp  1  nG  •'  GOTO  SplnG 

824  Loadup2 :  MASS  STORAGE  IS  "/CLASSICK/PROGS" 

825  LOAD  "LOSS"  ,  1 0 

826  Fin:  PRINT  "" 

827  PRINT  . . 

828  PRINT  "" 

829  PRINT  "  END  OF  PROGRAM 

830  PRINT  •" 

831  PRINT  . . . . . 

832  ENO 
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(PROGRAM  LOSS 

(THIS  PROGRAM  USES  VALUES  FROM  THE  CALC  ARRAYS  GENERATED  BY  REDUCING 
ISCALED  DATA  IN  PROGRAM  CALC.  SUBROUTINES  INTEGRATE  THESE  VALUES  AND  A 
ISTATIC  FRESSURE  RISE  COEFFICIENT ,AVDR  6  LOSS  COEFFICIENT  IS  CALCULATED. 

1  MUCH  OF  THE  CODING  MAS  PREVIOUSLY  COMMENTED  ON  IN  PROGRAM  ACQUIRE  AND 
(PROGRAM  CALC. 

OPTION  BASE  1 

OIM  CslcK 100,25)  INOTE  THAT  u  AND  I  DESIGNATORS  DISTINGUISH 

I  THOSE  VALUES  FROM  UFPER  5URVEY  AND  LOWER 
I  SURVEY  STATIONS  RESPECTIVELY. 

OIM  Calcul 100,25) 

DIM  Fosl 1(160) 

OIM  Posltul 160) 

DIM  Ktil  100 1  I  SEE  TABLE  I  OF  CLASSICK  THESIS  Kn-K. 

OIH  KnuT 106) 

OIH  Cell  100)  I  THESE  VALUES  PREVIOUSLY  DEFINED  IN  'CALC’ 

OIM  Cptul 100) 

OIM  Coa< 100) 

DIM  ¥  1 1 00.)  IAN  INTERMEDIATE  QUANTITY  IN  THE  STATIC 

IPRE5SURE  RISE  COEFFICIENT  CALCULATION. 

OUT  Z<  106  )  r 

OIM  Cptxkn(l00>  (COMBINED  VALUES  TO  HAKE  THE  INTEGRATIONS 

OIM  Cpluxknul 100)  IHORE  EXFLICIT  TO  THE  PROGRAMMER. 

OIM  Cpexknl 100) 

DIM  Yxknl  100) 

OIM  Z  x  k nu I  100  ) 

MAT  Calel-  (0) 

MAT  Calcic  (0) 

MAT  Posit-  (0) 

MAT  Fostlu-  (0) 

MAT  Kn-  (0) 

MAT  Knu-  10) 

MAT  Cpt*  (0) 

MAT  Cptu-  10) 

HAT  Cps-  10) 

MAT  Cptxkn-  10) 

MAT  Cptuxlnu*  (0) 

MAT  Cpsxkn-  10) 

MAT  Yxkn-  (0) 

MAT  Zxknu-  (0) 

L0A0SU8  ALL  FROM  VCLASSICK/ROUT INES/LOSSCALC' 

MASS  STORAGE  IS  ' /CLASS1CK/REOOATA* 

PRINT  "FN1ER  THE  NAME  OF  THE  FILE  CONTAINING  THE  CALCULATED  DATA  FROM  THE' 
PRINT  'LOWER  PROBE' 

PRINT  . . . . 

INPUT  CalcIflleG 

ASSIGN  GPattil  TO  CalelMW • 

ENTER  fPathl iCalcll  * ) 

FOR  N-1  TO  100 
Poalt(NI-CaIel(N,l  ) 

Rn(  N  )»Cal  c  I  IN ,  10  ) 

Cpl(N)-Calcl(N,l  I  ) 

Cps(N)-Calcl(N,l2) 

Pal -Calel IN , 1 9 ) 

Psl-Cale 1 (N  ,20 ) 

Ql-Calc 1 (N  ,  15 ) 

IF  Ql-0  THEN  Sklpy  (PREVENTS  A  DIVISION  BY  ZERO  IF  THE 

(ARRAY  IS  NOT  ENTIRELY  FILLED  WITH 
(NONZERO  VALUES  l.e..  TOTAL  OAIA  POINTS 
Y(N)*(PaI-Psl >/Q!  ITAKEN  DID  NOT  EOUAL  100. 

Cpt  «k  n( N  )-Cp 1 1 N  >*Kn(  N  ) 

Cpsxkn(N)*Cas(N)«Kn(N) 

Yxknl  N)*Y<Nt»Kn(N) 

NEXT  N 
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?3I  Sklpyi  PRINT  'ENTER  THE  NAME  OF  THE  FILE  CONTAINING  THE  CALCULATED  DATA  FRO 
M  THE' 

232  PRINT  'UPPER  PROBE' 

233  PRINT  . . . . * . * . . 

234  INPUT  Caleuf 1  let 

235  ASSIGN  *Path2  TO  Calcuflle* 

23G  ENTER  #PaIh2iCaleu( •  ) 

237  FOR  N-l  TO  189 
239  Poaltu(N)-Caleu(N,1  I 
239  Knu<  N  )*Ca leu<  N , !• ) 

248  CptuTNl-CeleuTN.I  I  > 

241  Pau-Calcu(N .  19) 

242  Pau*Caleu(N ,29 ) 

243  Ou~Calcu( N  ,  15  ) 

244  IF  Ou-8  THEN  Skip*  (SAME  REASON  FOR  STRUCTURE  HERE 

245  I<  N  WPsu-Pau  )/Qu  IAS  FOR  Q1 . 

246  Cp tuxknut N  )-Cptut N  )»KnuI N I 

247  2xknu(N)-2(NI»Knu(N) 

248  NEXT  N 

249  Sklot:  PRINT  " 

259  PRINT  'ENTER  THE  LIMITS  OF  INTEGRATION  FOR  THE  LOUER  PROBE  SURUEY' 

25!  PRINT  •' 

252  PRINT  . . . . . . . . . . . . 

253  INPUT  ‘ENTER  THE  FIRST  POINT* .Loupolnt 

254  INPUT  'ENTER  THE  LAST  POINT* .Hlpolnt 

255  I  CALL  THE  INTEGRATION  ROUTINE 

25G  CALL  Da  1 1  nl  <  Loupol  nt  .Hlpolnt  ,Kn(  •)  .Poa  1 1 1  •)  .Oenonl  na  tor  ) 

257  CALL  Dal  lnt  (Loupolnt  .Hlpolnt  .Cptxknt  •)  .Poa  1 1  (■),  Intaga  ) 

258  CALL  Oal  InKLowpoint  .Hlpolnt  .Cpaxknl  •)  .Poa  1 1<  •)  .Intege  ) 

259  CALL  OallnMLowpolnt  .Hlpolnt  ,Yxkn(  •)  .Poaltl  •)  .Integy  ) 

263  PRINT  '• 

264  PRINT  'ENTER  THE  LIMITS  OF  INTEGRATION  FOR  THE  UPPER  PROBE  SURUEY' 

265  PRINT  " 

266  PRINT  . . . . . . . ............. . . . 

267  INPUT  'ENTER  THE  FIRST  POINT* .Loupolnt 
2GB  INPUT  'ENTER  THE  LAST  POINT*  .Hlpolnt 

269  CALL  Oal lnt ( Loupolnt .Hlpolnt ,Knu< «> .Poa 1 lut •)  .Nuneralor ) 

278  CALL  Oa 1 1 nt (Loupol nt .HI  point .CptuxVnuT •)  ,Poa 1 tu( »), Intagb ) 

271  CALL  Oal lnt ( Lowpo 1 nl .Hlpolnt , Ixknut •) ,Poa I  tut •>, lnt egi ) 

272  Cp2*( In tegr /Oenonl no l or  > ♦ < Intagy/Denonlnator  ) 

273  Avdr*Nunerator/Oenonlnator 

274  PRINT  'STATIC  PRESSURE  RISE  COEFFICIENT* 

275  PRINT  USING  'MD.3DE*lCp2 

276  PRINT  ** 

277  FRINT  * AUDR ' 

27B  FRINT  USIN6  'M0.30E* |Avdr 

279  PRINT  ** 

298  W*<  Intepa-(  I  /  Avdr  )•(  Intagb  M/tlntega-Integc) 

281  PRINT  'LOSS  COEFFICIENT* 

282  PRINT  USING  *M0.30E'|W 

283  PRINT  . . . . . . . . 

284  PRINT  ** 

285  PRINT  *  ENO  OF  PROGRAM* 

286  PRINT  ** 

287  PRINT . . . ...» . . . . . . . 

7RR  ENO  ’ 
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B7.4  Subprogram  SUBACOUIRE 


IF  HE  SUBACQUIRE 

I  THIS  FILE  CONTAINS  THE  SUBPROGRAMS  FOR  POSITIONING  THE  SCANIUALVE 
I  FORTS  ANO  REA0IN6  THE  OUM. 

SUB  Scnvportposlll Senv  ,Dp ,Senhn»ve .Scnstpsvc I  ITHE  STRUCTURE  OF  THIS 

I  SUBPROGRAM  IS  SIMILAR  TO  PREVIOUS 
I  ACQUIS  1 T ION  PROGRAMS  WRITTEN  AT  THE 
ITPt.  SEE  GEOPFARTH  THESIS. 

OPTION  BASE  I 

COM  /Posltvrbla/  Sve, Sen 


728 

729 

730 

731 

732 

733 

735 

736 

737 

738 

739 

740 

741 

743 

744 

745 

746 

747 

748 

749 


Z-SPOLLI Sve ) 
U-8INAN0(Z,ISI 
V-SHIFTI  2  ,4  ) 
T-8INANDfV,7> 
P-I0*T*U 


IP  IS  THE  PRESENT  PORT  THAT 
I SCANIUALVE  IS  ON. 


THE 


CLEAR  Svc 

IF  P»Dp  THEN  Reirn 
IF  P>Op  THEN 

OUTPUT  Sen  USING  *22* iSenhnsvc 
CLEAR  Sen 

WAIT  4 


I  HOME  THE  SCANIUALVE 


I  ALLOW  4  SECONDS  FOR  THE  HOME  TO 
(COMPLETE. 

GOTO  Posit 
ELSE 

OUTPUT  Sen  USING  • 22’ iScnalpave  ISTEP  THE  SCANIUALVE 
CLEAR  Sen 

WAIT  .1  (WAIT  1/10  SEC  BETWEEN  STEPS 

6OT0  Poall 
END  IF 

750  Retrn:  SUBENO 

751  SUB  ReeddvnIOp .Chenlaalgn) 

752  OPTION  BASE  I 

753  COM  /Posllvrbls/  Sve, Sen 

754  COM  /Reedvrbla/  Sean  ,0vn ,5canvb< I  ,48 )  .Tenpchnrd , Yewebnrd .Scriyawchn . Sent e 
npcTm  .Senrdavcb  .Scanval I .48  I  .Senrdavea .Noofprbs .Yawchnrdu .Scnrdsvc 


755 

756 

757 

758 
7G0 
761 

763  Sanple: 


COM  /Reedvrbla/  Yewchnrdt .Scnyawehnu .Scnyawchnl .Maxdl f 

OUTPUT  Sen  USING  "ZZ" iChenlatlon  ICHANLASIGN  TAKES  ON  THE  VALUE 

I  ASSIGNED  TO  IT  BY  THE  CALLING 


OUTPUT  OvmFlr7n3a0h0I3 


764 

765 

766 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 


MAT 

FOR 


DIM  A( 5 ) 
A-  (0) 

I-l  TO  5 


(STATEMENT  IN  THE  MAIN  PROGRAM. 
ISTANDARD  SETTING  FOR  THE  DVM . 

I  SETS  THE  FUNCTIONS  ON  THE  PANEL. 


I  TAKE  5  READINGS  ANO  STORE  IN  THE 
I 'A*  ARRAY 


I AVERA6E  THE  5  READINGS 


•ERROR  TRAP  FOR  SPURIOUS  DVM  READINGS 


TRIGGER  Ovn 

ENTER  OvniAl I  I 
Avq'SUM(A)/! 

Oev-A( I )-Avg 
IF  Oev>Me*dl F  THEN 
PRINT  ’SAMPLE  EXCEEDED  MAXIMUN  DEVIATION  ALLOWEO-SAMPLE  RETAKEN" 
GOTO  Senplp 
END  IF 
WAIT  .3 
NEXT  I 

IF  Noofprba*!  THEN  Readene 
IF  Chanleslgn-Scnrdsveb  THEN 
Seanvbl I  .Op >-SUM< A)/5 
ELSE 

IF  Cbanladgn-Scnyauehnl  THEN 
Yawehnrdl-SUMIAI/S 
ELSE 

IF  Chanlealgr>*5enyawehnu  THEN 
Yawehnrdu*SUM(  A  )/5 
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7S7  ELSE 

789  60T0  Tenpread 

789  END  IF 

799  ENO  IF 

791  ENO  IF 

792  ReadoneMF  Chanlaslgn-Scnrdave  THEN 

793  Seanvbd  .Op  >-SUH<  A  )/5 

794  ELSE 

795  IF  Chenlaa lgn*Scnyauchn  THEN 

796  Yeuehnrd*SUH< A )/S 

797  ELSE 

798  Tenpread!  Tenpchnrd*5Ut1<  A)/5 

799  ENO  IF 

899  ENO  IF 

891  IF  Cbanlaalgn*Scnrdsvca  THEN  Scanvat I  ,Dp  )*SUM( ft >/5 

892  Relrnt  CLEAR  Sen 

893  SUBENO 
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B7.5 


Subprogram  SUBCALC 


I  IF1LE  SUBCALC 

10  IIH15  FILE  CONTAINS  ALL  THE  CALCULATION  SUBROUTINES  CALLED  BY  THE 
20  I  DATA  REDUCTION  PROGRAM  CALC. 

798  SUB  BgeatcIPa.Pt ,P23 ,P4 .PS .Beta .6a«na > 

799  BeIa-(PI-P23>/(PI4Pa> 

600  6anna-IP4-PS)/(PI-P23> 

801  SUBEND 

802  SUB  XphlcalelBata ,6an«a.Xval .XI  • T.PH1 ,P(  • > > 

803  OPTION  BASE  I 

604  OIM  E<  B ) 

80S  DIM  FIB) 

80S  HAT  E-  (0) 

B07  MAT  F-  If) 

80B  FOR  J-l  TO  6 

809  E<  J  )-X< I  ,1  >4X12  ,  J  )>6anna»X(3,J M6an«a*24X(  4  .J  ) •Ganna * 3*X( S ,J  )*6anna"4»X( 6  . 
J  )«6anna"5 

010  FI  J  )-PI  I  ,J  14PI  2  ,3  )»6anna4PI3,J  )«Gai>ma‘24Pt  4  ,  J  )  •Ganna'3+PI  5  .  J  >»6arma*4*P<  S  . 
J >*6anna‘5 
0>)  NEXT  J 

812  Xvel*Et I  )«E( 2  )»Beta«Et  3),Beta*?4E (4)»BeIa‘3*E(5)*Bela'4+E(6),BeIa'5 

813  Phi -FI  I  )4F(2)*Beta+F(3)*Beta'2+F(4 )»BeIa‘34F( S )*Bela*4*FI6 )*Bela‘5 
B I  4  SUBEND 

SIS  SUB  UnqcalcIXvel  ,Cp ,Tenp ,6 ,Vel  .Mach, PI  .Pa.Q) 

818  Vel *Xvel •( 2  *Cp»778*32 . 1 74  *Tenp ) “ . 5 

817  Mach-<KXveI*2)/<  I -Xve  1 '2  )  )•!  2/1 6- 1  >>>‘.S 

818  Q-(PI*Pe  )• IB/I 8- 1  I  MXval ‘2*1 1  t-Xvel  *2  >‘(1/16-1 >) ) 

819  SUBENO 

820  SUB  XrefealelPa.Fp.G.Xref > 

821  Xref*(l-IPa/IPp4Pa))*(I8-l  >/SM*.S 

822  SUBENO 

823  SUB  KncalcIPa.PI  .Pp.Xvet.Xref.G.Yau.Kn) 

324  KA»(iP|4Pa>/IPp4P«)>»IXve|/Xref  )•!  1 1  l-Xvel  *2  >/(  I -Xref ‘2  )  >*(  I /<  G-l) )  I 

•COSIYeu) 

B25  SUBEND 

B2G  SUB  CoefpressIPI  .Pp.Pa.Xval  .G.Cps.CpO 
B27  Cp»-1PI4P8)/(Pp4Pa) 

828  Cpa*l  (PI  4Pa  >  •  1 1  l-Xval*2)‘(S/(G-l  )>)>/(Pp4Pa> 

B29  SUBEND 

85G  SUB  Ensenb I e(Pp  ,Plnl t lal ,Pa .Pain 1 1  tal ,  Tenp .Tlnlllal .Ppavg , Paavo .Tenpavg ,N ) 

857  Pp«-Fp4Plnll lal 

858  Ppavg*Pps/N 

859  Plnl(lal*Ppe 
BS0  Te*Tenp4T  InU  lal 
BBI  Tenpavg*Te/N 
BS2  T  InU  I  a  I -Te 

8S3  Pae-PaiPalnltlaI 
BG4  Paevg*Pae/N 
865  Falnl t lal-Pea 
BG6  SUBENO 
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867  SUB  Xref ensenb le< Paavg .Ppevo ,6 .Xref avg > 

868  Xref*vo-<  I -<  <Paavg  >/<Ppavg4Paavg  >  >*(  ( 6- 1  )/6>)'.S 

869  SUBENO 

870  SUB  Uref ense«ble< Xref avg ,Cp .Tenpavg ,Uref 8vo > 

871  Ure  f  avg-Xref avg»( 2*Cp*  Tanpavg»?78*32 .174  >*.5 
87?  SUBENO 

873  5UB  Oref pnsanble<Paavg .Ppavg ,6 ,Xref avg .Qrefavg ) 

874  Qrefavo-<Pp»vo»P««vo)*<6/<e-t  » >*Xrefavg-2»< l-Xrafavg‘2 >M I/4G-I >» 
B7S  SUBENO 

876  SUB  Ovrefcalc( Xref ,Cp ,Tenp ,8 ,Pp ,Pa .Oref ,Uref > 

877  Vref»Xref,<2*Cp*778*32.l74M  enp ) * ,5 

878  0raf-<Pa*Pp)«<6/(8-l  )  >»<Xr«f* 2 )•( (l-Xraf *2  )*(l /t  6-1 ))> 

879  SUBENO 

880  SU8  Cpin»egrand<Pp,Pt  ,Pa,6,Xvel  ,B,0.Kn> 

881  H-Pp/<<PHPa l»(6/<6-1 ) )*Xval *2* ( (I -Xve I *2  )‘(l /< 6- 1  )))) 

882  NI-<Pa/(Pt*Pa))-«<l-Xva1*7)M6/<6-l  ))) 

083  N2-(6/(6-1  >)«XvbI*2»C  ( l-Xv«I *2  )“( f /I6-I  >>) 

884  N-NI/N2 

80S  0-fl'Kn 
B86  B-N*Kn 

887  SUBENO 

888  SUB  Cpcelc(  At  ,BI  ,Pp  .Ploeal  ,C  5 

889  C“<  (Ploeal/Pp  MB  I  MB  I 

890  SUBENO 

900  SUB  Stet lcpreas<PI  ,Pa  ,Xvel  ,6  ,Ps t 
910  P«.-<PI*Pa>*<  !-Xvel‘2>'<8/<6-l  H 

920  SUBENO 

930  SUB  Preforef (PB  ,P1  ,0raf  ,Pq  ) 

940  Pq-<Pp-PI  )/0rof 

950  SUBENO 
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B7.6 


Subprogram  LOSSCALC 


I  (FILE  LOSSCALC 

10  (THIS  SUBPROGRAM  IS  AN  ADAPTATION  OF  SHREEUE'S  INTEGRATION  ROUTINE 

20  IGIUEN  IN  APPENOIX  B  OF  NPS-57SF7307 1 A 

272  SUB  Oat Int ( Lowpolnt  ,H1 point  *D( • ) , Posit! *  )  ,Oa t Int  > 

277  OPTION  BASE  I 
287  OIM  A<  100) 

297  OIM  B< 100  ) 

307  DIM  C< 100) 

317  OIM  Olntt 100) 

321  MAT  A-  (0) 

322  MAT  8-  (0) 

323  MAT  C-  (0) 

324  MAT  Dint"  (0) 

325  N-Hipolnt-I 

326  Nnt-N-1 

327  FOR  I “Lowpolnt  + 1  TO  N 

337  A< I  )-( 1/(Posl t ( 1  +  1  1-Posl t( I't )  ))•( ( (D( 1  +  1  >-D( I  )  >/ <  Pos 1 1( 1+ I  >-Poslt< I  ) )  )-( ( 
0< I )-0< 1-1 ) )/( Posit ( I )-Posl t( I  -  I  ) ) )) 

34  7  B<  I  )-( <D<  1  )-0(  1-1  )  )/<  Posit*  I  >-Posit<  1-1  ) )  >-(  (Poal  tt  I  )+Posl  t  (  I-l  )  )»A(  I  ) ) 

357  Ci  I  >-D<  I  >-(  A(  I  >*Poil  t(  I  )*2  )-(B(  I  >*Post  tt  I  ) ) 

360  NEXT  I 

361  Oatlnt-0 

362  FOR  I-Lowpolnt+I  TO  Nnl 

363  Olntt  I )-( A<  I  HAt  I  +  l  )  MtPosl  tt  HI  >“ 3-Post  t  <  I  >‘3  )/6*<B<  I  KB<  1  +  1  )  )*(Posl  tt  I  +  l 
)‘  2-Poa  1 1 1 1  )*2)/«*tCtI  >*Ct  1  +  1  >)»<Poslt<  I  +  l  1-Posl  tt  I  )  >/2 

364  Oatlnt-Datlnt+Olntll  ) 

367  NEXT  I 

377  Olntt 1  >=A(2  >»(Posltt2  >‘3-Poallf 1  )*3  >/3*Bt 2  )• ( Poa 1 1 1 2  ) * 2 -Pos 1 1 ( 1  )'2  >/2  +  C<  2  ) 
•  tPosi  tt2)-Posllf  I  >) 

387  Olnt(N)-A<N)*<PoslttN+l  )*3*Poa  1 1 1  N  )*3  >/3+B< N  )•  t  Pos  1 1 1 N+  I  >' 2 -Pos  1 1 1 N  ) *  2  )/2  + 
Ct  N  >•<  Fos  1 1 1  N+t  >-Pos  1 1 1 N  ) ) 

397  Oa tint -Dal lnt+Dintt I  >*Olni(N> 

407  SUBEND 
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B7.7  Plot  Program  PREFPOREF 


1  I  PROGRAM  PREFPOREF 

2  'PROGRAM  PLOTS  PREF-PT/OREF  US  PROBE  POSITION 

4  MASS  STORAGE  IS  "/CLASSICK/REODATA" 

7  INPUT  -ENTER  THE  NAME  OF  THE  REOUCEO  DATA  FILE'  .Calcdat* 

10  ASSIGN  0Pathl  TO  Calcdatt 

I  I  OPTION  BASE  1 

12  DIM  Calc( 100 ,25  I 
17  MAT  Calc-  <01 
20  Scan-31 

26  ENTER  »Pathl iCalel •  1 

S0  61NIT 

60  PLOTTER  IS  CRT ,• INTERNAL* 

70  GRAPHICS  ON 

73  X_gdu_nax-100*MAX< I  .RATIO) 

74  Y_gdu_max-I00*MAX< I , I /RATIO  ) 

75  LORG  6 

7G  FOR  I—  .3  TO  .3  STEF  .  I 

77  MOVE  X^gdu^nax /2+ I  ,Y_gdu_nax 

79  LABEL  -Pref-Pil/Onef  VS  PROBE  DISPLACEMENT- 

79  NEXT  I 

83  OEG 

84  LOIR  90 

85  MOVE  0 ,Y_gdu_nax/2 

86  LA8EL  "Pref-Pl I /Orel  * 

87  LOIR  0 

88  MOVE  X_gdu_nax/2 , . 1 »Y  gdu  max 

89  CSI2E  3,1 

91  LABEL  "BLAOE -TO -BLADE  (in)" 

92  VIEWPORT  . 1 *X_gdu_nax  ,  ,99«X_odu_nax , . 15*Y  gdu  nax,.9«Y  gdu  nax 

94  FRAME  ~  “ 

95  WINDOW  0.3.0..? 

96  AXES  .1  ..01  .0.0.5.10.2 

97  CLIP  OFF 

98  CSI2E  2. 5.. 5 

99  LORG  6 

100  FOP  1-0  TO  3  STEP  .5 

101  MOVE  I  ,'.0! 

102  LAPEL  USING  *#  .K  *  1 1 

103  NEXT  I 

104  LORG  8 

105  FOP  I-l .0  TO  0  STEP  -.1 

106  MOVE  -.01 .1 

10?  LABEL  USIN6  " DO . DO ' i I 

108  NEXT  I 

109  FOR  k-1  TO  Scan 

I  13  PLOT  Calc<K  ,1  > ,CaIe<K .18) 

114  NEXT  K 

1 1 7  END 
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B7.8  Plot  Program  BETAPOSIT 


1 

2 
d 

7 
10 
1  I 
12 
17 
20 
26 
50 
60 
70 

73 

74 

75 

76 

77 

78 

79 

83 

84 

85 

86 

87 

88 
89 

91 

92 

94 

95 

96 

97 

98 

99 

100 
101 
102 

103 

104 

105 

106 

107 

108 
109 

113 

114 
117 


I  PROGRAM  BETAPOSIT 

•PROGRAM  PLOTS  BETA  VS  PROBE  POSITION 
MASS  STORAGE  IS  " /CLASS ICK/REDQATA" 

INPUT  "ENTER  THE  NAME  OF  THE  REDUCED  DATA  FILE"  .Calcda  1 1 
ASSIGN  *Pathl  TO  Calcdal* 

OPTION  BASE  I 
DIM  Cal c ( J  00 ,25  > 

MAT  Calc-  (0) 

Scan-31 

ENTER  *PaIhl iCatcl  • ) 

G INI  T 

PLOTTER  IS  CRT  ."INTERNAL" 

GRAPHICS  ON 

X_gdu_max*100«MAX(  1 .RATIO ) 

V_Bdu_nax-100»MAX( I .1 /RATIO  1 
LORG  6 

FOR  I--. 3  TO  .3  STEP  . 1 

MOVE  X_gdu_nax/2FI ,Y_Qdu_nax 

LABEL  "BETA!  VS  PROfll  OliPLACEMENT" 

NEXT  I 
OEG 

LOIR  90 

MOVE  0  ,Y_gdu_max/2 
LABEL  "BETA1  <deg>" 

LOIR  0 

MOVE  X_gdu_nax/2 , . I #Y_gdu  nax 
CS1ZE  3.1 

LABEL  "BLAOE-TO-BLAOE  (In)" 

VIEWPORT  .  I  •  X_gdu_nax  , .  99*X_gdu_max  . .  I  5*  Y__gdu_max  . .  9»  Y_gdu_nax 
FRAME 

WINDOW  0,3. -50. -45 
AXES  .1  ,.2,0  .-50  .5  .5. 2 
CLIP  OFF 
CSIZE  2. 5. .5 
LORG  6 

FOR  1-0  TO  3  STEP  .5 
MOVE  I  .-50.2 
LABEL  USING  "*.K"|I 
NEXT  I 
LORG  8 

FOR  1—50.0  TO  -45.0  STEP  1 
MOVE  -.01.1 
LABEL  USIN6  "ODO.O" 1 1 
NEXT  I 

FOR  K-1  TO  Scan 

PLOT  CaldK.I  ),-Calc(K,9l 

NEXT  K 

END 
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B7.9  Plot  Program  VVREFSPAN 


1  I  PROGRAM  VVREFSPAN 

2  l PROGRAM  PLOTS  VI/VREF  VS  PROBE  POSITION  FOR  A  SPAN-U1SE  SURVEY 

4  MASS  STORAGE  IS  '/CLASSICK/REODATA' 

5  INPUT  'ENTER  THE  NAME  OF  THE  REDUCED  DATA  FILE' .Calcdatt 

6  ASSI6N  BPathZ  TO  Caledat* 

9  OPTION  BASE  1 

10  DIM  Calcl : 30 ,25  ) 

1 1  MAT  Calc-  <0> 

12  Scan-42 

14  ENTER  0Path2iCalc( •  ) 

50  6INIT 

60  PLOTTER  IS  CRT  .'INTERNAL' 

70  6RAPHICS  ON 

73  X_gdu_nax- I 00«MAX<  I  .RATIO) 

74  Y_gdu_nax-I00»MAX< I . I/RATIO) 

75  LORG  6 

76  FOR  I  — .3  TO  .3  STEP  .  I 

77  MOVE  X_gdu_nax/2M  ,Y_gdu_nax 

78  LABEL  'Vl/Vref  VS  PROBE  DISPLACEMENT" 

79  NEXT  I 

83  DEG 

84  LOIR  90 

85  MOVE  0,Y_gdu_«ax/2 

86  LABEL  'Vl/Vref 

87  LOIR  0 

88  MOVE  X_gdu_nax/2 , . I •Y_gdu_nax 

89  CSI2E  3.1 

91  LABEL  'SPAM  ( In )  ' 

92  VIEWPORT  . I »X_gdu_nax . . 99*X_gdu_nax , . l5»Y_gdu_max . . 9«Y_gdu_nax 

94  FRAME 

95  WINDOW  -5,5,1 ,1.5 

96  AXES  I  ,.01  ,-5,1.0, 1  ,10,2 

97  CLIP  OFF 

98  CSIZE  2.5, .5 

99  LORG  6 

100  FOR  1-5  TO  -5  STEP  -1 

101  MOVE  I.. 99 

102  LABEL  U5ING  'I  ,K '  i  I 

103  NEXT  I 

104  LORG  8 

105  FOR  I- 1 5  TO  I .0  STEP  -. I 

106  MOVE  -5.05,1 

107  LABEL  USIN6  'DD.DD'il 

108  NEXT  I 

109  FOR  K- 1  TO  Scan 

113  PLOT  CalcIK  ,1  )  ,Calc(K  ,7)/CaIc(K  ,14  ) 

114  NEXT  K 

117  END 
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B7.10  Plot  Program  VVREFUSPAN 


1  I  PROGRAM  VVREFUSPAN 

2  IPROGRAM  PLOTS  V2/VREF  US  PROBE  POSITION  FOR  UPPER  TRAUERSE  SPAN-WISE 

3  '  SURVEYS 

5  MASS  STORAGE  IS  " /CLAS51CK/RED0AT  A' 

6  INPUT  -ENTER  THE  NAME  OF  THE  REDUCED  DATA  FILE- , Cal cdat * 

7  ASSIGN  0Palh2  TO  Calcdatl 

9  OPTION  BASE  I 

1®  OIM  Ca lc ( 1 00  ,25 ) 

I  I  MAT  Calc-  (0) 

12  Scan-38 

14  ENTER  0Path2iCalc<  »  ) 

5®  GINIT 

60  PLOTTER  IS  CRT  , - INTERNAL - 

70  GRAPHICS  ON 

73  X„gdu_nax- I 00-MAX1 1 .RATIO) 

74  Y_odu_nax- 1 00- MAX ( I , I /RATIO ) 

75  L0R6  6 

7G  TOR  I--. 3  TO  .3  STEP  .  1 

*77  move  X_gdu_nax /2 *  I  ,Y_gdu_nax 

70  LABEL  ~V2/Vref  US  PROBE  DISPLACEMENT" 

79  NEXT  I 

03  DEG 

04  LOIR  90 

85  MOVE  0  ,Y_gdu_nax/2 

80  LABEL  " V2 /Uref  * 

87  LOIR  0 

69  MOVE  X _gdu_nax /2 , . 1 • Y_Qdu_nax 

89  CSI2E  3,1 

91  LABEL  'SPAN  (In)  - 

92  VIEWPORT  . I •X_gdu_nax , . 99-X_gdu_nax , . I 5-Y_gdu_nax , . 9-Y_gdu_nax 

94  FRAME 

95  WINDOW  -5, 5. .5, 1.0 

96  AXES  1  ,.01  .-5.. 5,1 ,10,2 

97  CLIP  OFF 

99  CSIZE  2. 5, .5 

99  LORG  6 

100  FOR  1-5  TO  -5  STEP  -1 

101  MOVE  I  . . 49 

102  LABEL  USING  -*,K-tI 

103  NEXT  I 

104  LORG  8 

105  FOR  1-1.0  TO  .5  STEP  - .  I 

1 06  MOVE  -5.05,1 

107  LABEL  USING  -DO.OO-|I 

1 08  NEXT  I 

109  FOR  K-l  TO  Scan 

113  PLOT  CalcfK  ,  I  )  .CalclK  ,7 >/Calc< K  .1 4  ) 

1 14  NEXT  X 

117  END 
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B7.ll  Plot  Program  CPBLADEPLOT 


1  I  PROGRAM  CPBLADEPLOT 

2  I PR06RAM  PLOTS  MASS  AVERAGED  BLADE  COEFFICIENT  OF  PRESSURE  AGAINST 

3  'THE  FRACTION  OF  CORD  X/C  FROM  THE  LEADING  E06E. 

S  MASS  STORAGE  IS  ‘/CLASS1CK/REDOATA’ 

7  INPUT  'ENTER  THE  NAME  OF  THE  FILE  CONTAINING  THE  BLADE  CP  '  S' ,Cp f  1  la* 

10  ASSIGN  SPathl  TO  Cpflle* 

11  OPTION  BASE  I 

12  OIM  Cpnaa savgl 48  I 

15  DIM  Xoc( 20  I 

16  MAT  Cpnasaavg-  (0) 

19  DATA  98.9,94.8  ,90.8,86.8,82.8.78.8  ,71 .5.64. 1  .56.7,49.3.41  .9,34.3,26.9  19.6 
,12.2.8.6,4.8,3.2.1.6,0 

20  REAOXocT*) 

26  ENTER  ePaihl iCpnassavgl •  ) 

54  GINIT 

60  PLOTTER  IS  CRT .-INTERNAL- 

70  6RAPHICS  ON 

73  X_gdu_max-I00»MAX< I .RATIO ) 

74  V_gdu_nax-I00.MAX( I . I/RATIO) 

75  LORG  6 

76  FOR  I— .3  TO  .3  STEP  .  I 

77  MOVE  X_gdu_nax/2+ I . Y_gdu_nax 

78  LABEL  "Cp  US  PERCENT  CHORD' 

79  NEXT  I 

83  0E6 

84  LOIR  90 

85  MOVE  0 ,Y_gdu_nax/2 

86  LABEL  "Cp" 

87  LOIR  0 

88  MOVE  X_gdu_nax /2 , . I « V_gdu_nax 

89  CSI2E  3,1 

91  LABEL  -X/C  PERCENT  CHORO' 

92  VIEWPORT  .  I  •X_gdu_nax  , .  99*X_gdu  nax,.)5»Y  gdu_nax , . 9*Y_gdu  nax 

94  FRAME 

95  WINDOW  0,100,1 .0,-1  .6 

96  AXES  5.  .2, 0.1. 0.2, 2, 2 

97  CLIP  OFF 

98  CSIZE  2. 5. .5 

99  LORG  6 

100  FOR  1-0  TO  100  STEP  10 

101  MOVE  I , I .02 

102  LABEL  USING  "I.ITlI 

103  NEXT  I 

104  LORG  8 

105  FOR  I--I  .6  TO  I .0  STEP  .4 

1 06  MOVE  -.6,1 

107  LABEL  USING  -DO.DD-|I 

108  NEXT  I 

109  FOR  N-l  TO  20 

113  PLOT  Xoe< N ) ,Cpnasaevg(N+3 I 

114  NEXT  N 

I  15  FOR  N-l  TO  20 

116  PLOT  XocI  ?  I-N  I.Cpnasaavgl  22*N ) 

117  NEXT  N 

119  END 
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B7.12  Program  CORRECT  A 


I  a  I  PROGRAM  CORRECT  A 

1  1  OPTION  BASE  I 

20  OIM  Sc  1  da t a < 1  .IBS  1 

38  OIM  Correctaray! 1 .!06> 

35  MAT  Correctaray-  (0) 

40  MAT  Scldata-  (0) 

60  MASS  STORAGE  IS  * /CLASS ICK/REDOATA" 

90  INPUT  ’ENTER  THE  NAME  OF  THE  FILE  TO  BE  CORRECTED" , Sc  I f 1 1 e* 

100  INPUT  'ENTER  THE  NAME  OF  THE  CORRECTED  F ILE ‘  .Correc t f 1 1 e* 

110  CREATE  BOAT  Correct f 1 1 e» .500 ,848 

120  ASSI6N  0Pathl  TO  Sclfllel 

130  ASSIGN  0Path2  TO  Correctfila* 

140  FOR  N-l  TO  49 

150  ENTER  SPathl ,N|5cIdata( • > 

151  ON  END  SPathl  GOTO  Adddata 

153  Adddata:  IF  N-49  THEN 

154  Sc  1  da  tat  1  .1  1-2.000E-2 

155  Scldatat 1  ,2 1-1 .494E+1 

15G  Scldatat 1  .31-1 .25GE»I 

157  Scldatat I  .4  1--6.520E40 

158  Scldatat  I  ,5>-7.700E*0 

159  Scldalat  I  ,S>— 8.  IS0E-I 

IG0  Scldatat  r,7>— 8. 280E-1 

151  Scldatat  1  .8  1— 3. 280E-I 

162  Scldatat  I  .91--1 ,270E*0 

163  Scldatat  I  ,101*1  . 075E*  I 

164  Scldatat  1  ,1  I  1—7. 200E+0 

165  Scldalat I  ,12  1*1 .000E-2 

166  Scldatat  1  ,13>— Z.000E-3 

167  Scldatat  I  .14  1--6.000E-3 

168  Scldalat 1  .16  1-1 .770E+0 

169  Scldatat  I  ,151*3.0 

170  Scldalat 1  ,171*4. 56 IE  +  2 

171  Scldatat 1  .18  1-405.20 

172  ENO  IF 

173  MAT  Correctaray-  Scldata 

174  OUTPUT  SFath2 .NiCorrectarayt •  1 

175  NETT  N 

192  ASSIGN  0Fath2  TO  Correctflle* 

194  FOR  N-1  TO  49 

1 95  ENTER  0Path2  .NiCorrectarayl 1  1 

197  PRINT 

198  PRINT  -SCAN",N 

200  PRINT  Correc t arayt •  1 

201  PRINT  • . . . - 

203  NEXT  N 

210  END 
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B7.13  Program  CORRECT  B 


HI  IpPOi.RAM  censtcT  8 

I  I  or  1  H.IN  I'AfE  I 

rt?  uni  umiim-*  i  ,m;> 

.1(1  DIM  Corrector  Oil  I  .IPS) 

:»5  MAI  rorr.f»a»-i»y-  (0) 

10  ll/ll  St)  data-  (0) 

90  MASS  SIPPAGE  IP  Mfl  ASSlCK/WODAI/r 

00  Il'Pt'T  "Ellim  1110.  MADE  OP  1II£  f  II  E  10  PE  COIIIIE C  IPO"  .Ec I  f  1 1 e* 

1P0  18*1-1*1  •fllll.fi  I  HE  MAI  IP  or  THE  corwriro  ril.f  .CorrecU  I  leT 

110  CFPAIE  I'l'AI  Crr  reel  f  I  Ip8  ,500  ,0-10 
irp  AESIPN  CP  MM  10  Sc  1 1 1 1  <■$ 

100  AES10M  fralhO  10  CcrrecIMleS 

MO  ion  M»l  10  48 

l*.;«  EIIIFR  W«»M  .HiS'Motol  •  I 

101  IP  N-.1S  llfpll  ScldalM  1 .151-1,95 
llj.1  MAI  Corr  er  laray  SrMalfl 

IP, 4  fill  mil  8P«U»2  .NlPnr  rcclnrayl  •  > 

I  Eli  HE  *  I  II 

110  A  =  SICN  01  all,?  10  Corr-fiMMle* 

I'M  foil  M- 1  10  .19 

105  Ellll-n  0l>l liT  ,NiCpi-i  oc MrayM  I 

nr  rr,nir 

i?o  rpun  •ncAir.M 

TOO  PP  1111  Cpr  rfdl,,  •>»  •  i 

?<m  pin  mi  . . . 

r«.i  nr  y  i  m 

no  ehu 
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B7.14  Program  CORRECT  C 


in  Irnpimnit  cqnnr-ci  c 

ii  fir  i  ion  posi  i 
?P  DIM  Sdrl-IMI  .IPS) 

:n  PHI  Cor.  rrtaf  ai  t  1  ,lffl  » 

31  HIM  Chr.  acld«ta'301 

35  HOT  Critic  I  nrey"  IP) 

•in  nnr  sdHata-  mi 

r.p  001ft  -3.7  ,-  3.  I  .-3.P  ,-.7.9,-2.«  .-2.7  ,  7. B  .-2.fi, -7.4  .-3.3  .-2 .7  .-7.1  ,  7  .B  ,1  .0 
,-1.7.  1  .5.-1. 3,-1 .  t  .-.7.-.  5.  -.2,.  I  ..4,,  7.1.  •.  1.3,1.  G,  1.9. 2. 1  ,7. 3, 2. 5.2. 0,7. 7 
IS  IIOTft  i.P  .7.9.3. P;3. 1  .3.2 

71  PEOU  C-.»  i  -cHalal  ♦  1 

OP  MOSS  SltiPftr-E  IS  "/CLAS'ICK/REDOAIA* 

on  jnri'T  'ttmn  the  haiie  or  ike  Mi  r  io  nr  cnmtECTEP' .Pdf  tic* 

IPO  llirur  -tHIEP  THE  IlftHE  or  THE  COPOECIEO  E ILE*  ,Cori  set  f  I  !•> 

IIP  CPEolF  pool  Corn-sHlI-f  .Oee.STB 
130  ASSIGN  ?f>IM  TO  Sc:  f  I  If* 
no  ASSIGN  noth’  TO  Corrnctrtla* 

MO  Flip  M-t  10  3P 

ISP  ENiril  fldtl.l  .Ml  Sc  III,  I a'  «  I 

151  Sc  1  Ha  Ml  I  ,  I S  MCorr  ec  1  rip  t  a<  N  1 
IG3  not  fprrac.tp- PV-  ScH-la 

Hit  pilTPtlT  flatti?  .HiCorroe ter  ay<  •  1 
1  US  HETI  II 

I  03  ASSIGN  AT  ,,11.7  10  Corr-ctflle* 

I  st  rop  ii  -  i  to  in 

I'IS  EHIT.lt  Pratl.’.HiCrrrectarpyt*) 

i p ?  riiuir  . . 

I  OP  rillHT  ‘  St  AH'  .11 

3P0  ri’IMT  Cor  i  «clM  ay'  •  1 

7 PI  ri’IH!  '»i . . 

303  NT  IT  II 

7in  KiH) 
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B7.15  Program  PRBCOEF 


10  I  PROGRAM  PRBCOEF 

20  I  THIS  PROGRAH  STORES  THE  PROBE  COEFFICIENTS  IN  A  DATA  FILE 
30  OPTION  BASE  t 

40  OIM  C<6  ,S  ) 

50  OATA  1  .2  ,3,4  .5  .0,2  ,3  ,4  ,5  ,B  ,0  ,3  .4  ,5  ,B  ,7  ,0 ,4  ,5  ,6  .7  ,8  .0  .0  ,0  ,0  ,0  ,0  ,0  ,0  ,0  ,0  ,0  ,0 

,0 

60  REAO  C< •  ) 

70  PRINT  C< •  ) 

80  I  STORE  THE  DATA  INTO  A  FILE 
90  MASS  STORAGE  IS  '/CLASSICK/REDDATA" 

100  INPUT  'ENTER  THE  NAME  OF  THE  COEFFICIENT  FILE"  .Reddatal 
110  CREATE  BOAT  Reddatal .  I  .400 
120  ASSI6N  BPathl  TO  Reddatal 

130  OUTPUT  0Path1 |C( •  ) 

140  IPRINT  STORED  COEFFICIENT  ARRAY 

IS0  ASSIGN  SPathl  TO  Reddatal 

160  ENTER  0Pethl |C< • ) 

161  FOR  N-l  TO  6 

162  PRINT  USING  'MO .  30E  ,4X ’  |C<  N  ,  I  )  ,C(  N  ,2  1  ,C(  N  ,3  >  ,C(  N  .4  )  ,C<  N  ,5  1  ,C (  N  ,G  ) 

163  NEXT  N 

IBS  END 
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B7 •_! Examples  of  Acquired  and  Reduced  Data 

Tne  Scanivalve  port  and  scanner  channel 
assignments  for  data  acquired  using  program  ACQUIRE  are 
shown  in  Table  B1 . 

An  example  of  the  table  of  survey  data  output 
by  program  ACQUIRE  in  engineering  units  ('scaled')  is  given 
in  Table  B2,  and  the  corresponding  reduced  data  output  by 
program  CALC  is  given  in  Table  B3  for  an  upstream  probe 
survey.  Similar  results  for  the  downstream  survey  (survey 
•  in  TabTe  II j  are  given  in  Table  B4  and  Table  B5 
respect : vel y . 

An  exampie  of  scaled  data  output  by  program 
ACQUIRE  for  a  surface  pressure  scan  is  given  m  Table  B6 . 
The  corresponding  table  of  pressure  coefficients  calculated 
by  program  CALC  is  given  in  Table  B'? . 

B'-.  flexible:  disc  initialization  and  file  backup 

mexihie  discs  are  used  to  backup  the  files  stereo  on 
me  computer's  hard  disc.  The  file  structure  used  for  the 
present  work  was  designed  to  allow  the  contents  of  each 
subdirectory  to  be  stored  separately  from  the  other 
subdirectories.  Backing  up  the  file  system  therefore 
requires  separate  flexible  discs  for  each  subdirectory. 
Blank  discs  must  be  formatted  first,  using  the  following 
steps : 

1.  Type  MSI  "/"  [Puts  system  in  root  directory  if  not 

already  there . ] 


1  3  9 


TABLE 

B2 .  UPSTREAM  BLADE-TO-BLADE  SCALED  PROBE 

DATA  FILE  L-4SEPASCL 

SCnN 

FROBE 

F05IT 

1 

2 

3 

4 

5 

1 

2. S3 

2 .  B33E-32 

1 .4752+31 

1 . I77E+3I 

'6 . 01 2E+03 

1 .0I3E+3I 

2 

.IS 

3 . 43SE-32 

1  . 47  6E  f  0 1 

1 .1822+61 

-6 .  352E  +  33 

1 .0I4E+3I 

3 

.S3 

2 .633E-82 

1  .47BE  +  3I 

1  . 1632+61 

-6 . 1 4BE+33 

1 .3152*31 

4 

.33 

2 .  SS3E-S2 

1  .  460E+0I 

1  .1672+31 

-6. I34E+33 

1 .BI7E+3I 

5 

.43 

3.233E-B2 

1  .4732*31 

1 . 1  862  +  31 

-6. I54E+30 

1 .3I5E+SI 

6 

.53 

2 . 48BE-62 

1 .464E+3I 

1 .  I35E+3I 

-B. 1 I2E+03 

1 .3212+31 

7 

.S3 

3.S33E-32 

1 .48ZE+3I 

1 . I97E+3I 

-6.  I34E+33 

1 .327E+3I 

5 

.73 

2.433E-32 

1 .4632*31 

1 . 233E+0I 

-6. I5BE+33 

1 .32BE+0I 

S 

.63 

2 .680E-32 

1 . 484E+B 1 

1 .2332*31 

-6 .  I66E  +  B3 

1 .325E+3I 

10 

•  S3 

4 . 203E-B2 

1 .4BSE+0I 

1 .23IE+3I 

-6.21 BE+33 

1 .32SE+0I 

!  1 

t  .33 

3. 483E-32 

1 . 487E+3I 

1 .233E  +  0! 

-6. IS3E+33 

1 .B24E+0I 

12 

i.ie 

3 .  6032-82 

1  .4662+31 

1  .233E+3I 

-6.24EE+33 

1 .326E+3I 

13 

1.33 

4 . 53BE-32 

t . 4532*81 

1 .21ZE+6I 

-B.282E+33 

1 .3252+61 

14 

1 . 53 

3. 433E-32 

1 .43IE+0I 

1 .2152+01 

-B  .2B4E+33 

1 .327E+3I 

15 

1.43 

3 . 233E-32 

1.4832*31 

1. 2132+31 

-6.334E+03 

1 .332E+3I 

16 

1  .53 

3 . B33E-32 

1 .432E+SI 

1  .225E  +  3I 

-B  .2662+33 

1 . 33SE+3 1 

17 

1  .S3 

3 . B33E-32 

1 .4312+01 

t . 225E+6I 

-S . 35BE+38 

1 . 337E+3I 

16 

1.73 

3.433E-32 

1  .  4  5  4  E  ■»  3 1 

1 .2332*3 1 

-S .  2B3E  +  33 

1 . 347E  +  B  1 

1  5 

1  .S3 

3 . B33E-B2 

1 . 433Et3 1 

1  .2332+31 

-B .  35BE  +33 

1 . 346E+3 1 

20 

1.53 

4 . 238E-82 

1  -493E-*OI 

1  . 2  32E  +  3 1 

-6 . 366E+33 

1 .344E+3I 

2  i 

2 . 33 

4 . 433E-32 

1.4322+31 

1  .2352+31 

-6 . 37  4E  +  33 

1 .3452+31 

22 

2.  13 

4 . 333E-32 

1 .4322+31 

1 .2472*61 

-S . 4  53E+33 

1 . 352E  +  3 1 

23 

2.23 

4 . 233E-32 

1 .4332+31 

1  .2432+31 

-S .  423E  +  33 

1 .35  IE +  31 

24 

2 . 33 

3 . 433E-32 

1 .4322+61 

1 . 2EZE+0 1 

-6.SIBE+S0 

1 .3552+31 

25 

2.43- 

4 . 633E-32 

1 . 4552+3 1 

I  .2652+6 1 

-B . 574E+B3 

1 .3552+31 

26 

2.53 

3.S33E-32 

1 . 453E  +3 1 

1 . 2732+6 1 

-6 .5BBE+33 

1 . 355E+3 1 

27 

2. S3 

4 . 333E-32 

1 . 4662+01 

1  .27SE+01 

-6 . 5B2E+33 

1 . 3632  +3 1 

26 

2.73 

4.233E-32 

1  . 4332*61 

1 . 27BE+6 1 

-6 . S8SE+30 

1 .358E+3I 

2  5 

2.63 

4 . 633E-32 

1 .4332+3 1 

1 .2762+61 

-S . 623E+33 

1 .8552  +  31 

30 

2.53 

4 .503E-32 

1  .  4652  +  3 1 

1  .Z77E+BI 

-S.S32E+33 

1  .3552  +  31 

31 

3.33 

4 .S33E-32 

1 . 485EVS 1 

1 .2732  +  31 

-S . S83E+B0 

1 .3532  +  31 

SCAN 

6  7 

6 

9 

13 

1  1 

1 

-7.4566+00  -7.5426+00 

-6 . B 1 66+00 

-8 . 4326+00 

1  .0I4E+3I 

-6 . 7466+00 

2 

-7.516E+00  -7.5466+00 

-6 . 8 1 66+00 

-8 . 5066+00 

1 .0ZIE+3I 

-6 . 736E+50 

3 

-7.5766+00  -7. 6026+00 

-6 . 7506+00 

-6 . 5766+50 

1 .3232+31 

-6 . 734E+50 

4 

-7.5566+00  -7 . 5426+00 

-6 . 7566+00 

-8.612E+0S 

1 .3252+31 

-6 . 7626+50 

5 

-7.5666+00  -7.5706+00 

-6 . 6206+60 

-B .6606+50 

1  .6252  +  31 

-6.61 46+00 

S 

-7.532E+00  -7.536E+60 

-6 . 6626+00 

-6 . 7 1 46+05 

1 .6252+51 

-6 . 620E+00 

7 

-7.5946*00  -7.612E+00 

-6 . 6506+00 

-6 . 8 i 6E+0G 

1 . 3322  +  61 

-5 . 8226+00 

8 

-7.6266+00  -7.626E+00 

-o .5966+00 

-8 . 6606+00 

1  .636E+3I 

-6 . 6 166+00 

3 

-7.6306+00  -7.6406+00 

-6 . 562  E +  00 

-6 . 8626+00 

1 .B35E+31 

-6 . 860E+00 

13 

-7.6456+06  -7.6626+06 

-S . 5866+00 

-6 . 8626+66 

1 .  B3*IE  +  0 1 

-6 . 6506+00 

1  1 

-7.6706+05  -7.6266+05 

-6.5326+00 

-8. 9206+05 

1 . 642E  +  3 1 

-6 . 564E+G0 

12 

-7.6566+00  -7.6966+06 

-6 . 6846+00 

-8 .#3l  4E+55 

1 . 644E+5 1 

-6 . 696E  +  00 

1  3 

-7. 6526+50  -7. 6366+50 

-6 .6756+00 

-8 . 6706+08 

1  .8432  +  61 

-6 . 922E+00 

1  4 

-7.6746+60  -7.6666+56 

-6.6546+00 

-8. 8346+00 

1  .3452+61 

-6 . 324E+05 

15 

-7.7146+00  -7.7006+00 

-6.7646+00 

-6 . B 1 66+00 

1 .6532*01 

-6 . 5746+50 

16 

-7.7666+06  -7.750E+00 

-6.8346+00 

-0 . 654E+00 

1 . 6552*3 1 

-7 . 5086+00 

1 7 

-7.7266+60  -7.7266+00 

-6.6926+00 

-8. 8426+00 

1 .657E*6! 

-7 . 0506+50 

1  S 

-7.7446+00  -7.7726+00 

-6.8566+00 

-8 . 8766+50 

1 .8532+81 

-7. 0426+00 

15 

-7.7886+00  -7.7726+00 

-6.9706+60 

-8 . 6266+05 

1 .552E+01 

-7 . 6566  +50 

23 

-7.7326+00  -7.776E+00 

-6.9206+00 

-8 . 6226+08 

1 .3612+81 

-7 . 1 626+05 

21 

-7.7606+00  -7.7766+00 

-6.9506+60 

-8.8866+00 

1 .6652*61 

-7 . 0766+00 

22 

-7.8166+00  -7.8406+00 

-6 . 9646+00 

-8 . 0766+50 

1 .3732*61 

-7 . 1 466+50 

23 

-7.6426+00  -7.8426+00 

-6 . 9706+05 

-0.9786+00 

1 .873E+BI 

-7. 1 72E+G0 

24 

-7.3146+00  -7.9306+00 

-7.0526+00 

-9.0666+05 

1 .352E  +  6I 

-7 . 2506+00 

25 

-7.9606+00  -7.9326+00 

-7.0406+00 

-9.1406+00 

1 .052E*81 

-7 . 2206+00 

25 

-7.5466+00  -7.5586+00 

-6 . 9746+00 

-9 . 1 566+06 

1 .0352+6! 

-7 .2646+05 

27 

-7. 5756+06  -7:5886  +  60 

-6 . 9126+00 

-9.2206+00 

1 .0962*31 

-7 . 3 1 0E+00 

23 

-7.5686+00  -7.3906+60 

-6 . 5366+00 

-9.2566+05 

1 .033E+3I 

-7 . 5046+00 

28 

-7.9366+00  -8.0066+00 

-6 . 8526  +  00 

-9.2746+60 

1 . 1 332*31 

-7.31 6E+00 

33 

-7.3646+00  -7.5766+00 

-8 . 8366+00 

-9 . 3266+05 

1 .336E+3I 

-7 . 3246+00 

31 

-7.9356+00  -8. 0046+00 

-6 . 6866  +  00 

-9 . 3366+00 

1 . 1 67E  +  3 1 

*7 . 3666  +00 
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TABLE  B2  (CONT.).  UPSTREAM  BLADE-TO-BLADE  SCALED 
PROBE  DATA  FILE  L-4SEPASCL 


SCAN 

12 

13 

14 

fnW 

TEHP 

ATHOS 

GES 

In) 

FRE5B 

i 

-5 . 800E-03 

-1 .660E-0I 

-2.460E-GI 

4.B32E+0I 

4 . 607E+02 

405. 47 

2 

0.606E+86 

-1 .666E-0I 

-2.E20E-0I 

4 . B70E+0I 

4.663E+02 

405.47 

3 

8 . 08SE+08 

-1 .B80E-0I 

-2 .620E-0I 

4.867E+0I 

4.B02E+02 

405.47 

4 

2 .3S2E-83 

-1 .B0BE-0I 

-2 . B20E-0 1 

4 . 66  5E  +  0 1 

4.666E<82 

465.47 

5 

fi . 630E-03 

-1 .840E-0I 

-2.SSGE-0I 

4 . 6S5E+0 1 

4 . 5SEE.02 

405.47 

6 

-4 . 008E-83 

- 1 . B60E-0 1 

-2.E00E-0I 

4 . 66  7E  *  0 1 

4 . 537E.B2 

465.47 

7 

-8.660E-03 

-t .BB0E-81 

-2 . SB0E-0I 

4. 666E+0I 

4 . 5SSE+02 

465.47 

8 

1 .606E-82 

-1 .760E-0I 

-2 • 460E-0I 

4.8SEE+8I 

4.534E«02 

405.47 

3 

1 . 600E-32 

-1 . S00E-0I 

-2 . 522E-0 1 

4 . 6S7E+0I 

4.535E.02 

465.47 

ie 

- 1 . 4B0E-02 

-1 .840E-0I 

-2 .620E-0I 

4 . 8B6E+0 1 

4.S3BE.02 

403.47 

1 1 

2 . 866E-63 

-1 .BB0E-01 

-2.520E-0I 

4.BE6E+0I 

4 . 535E+02 

465.47 

12 

-2 . 002E-03 

-1 .7S0E-8I 

-2.62SE-0I 

4 . 865E+01 

4 . 534E»02 

405 . 47 

13 

-1  .600E-02 

-2.020E-8I 

-2 . 840E-6 1 

4 . BS7E+0 1 

4 . 533E+02 

405.47 

1  4 

-1 .000E-02 

-1 .7S2E-8I 

-2 . 58OE-0I 

4 . BS7E+01 

4.555E+0Z 

405.47 

13 

4 . 000E-03 

- 1 . 30£E -0 1 

-2 . 420E-SI 

4 . 8656  •»  01 

4 . 533E*#2 

465.47 

1  s 

2 . 000E-03 

-1 . 5B0E-0I 

-2 .620E-0I 

4.665E+01 

4 . 552E*02 

405 . 47 

17 

6 . 000E-03 

-1 .B60E-0I 

-2 . 660E-0I 

4 . B67E+6 1 

4 . 553E  +  02 

405 . 47 

IS 

1 .260E-02 

-1 .620E-8I 

-2 . 680E-0) 

4 . 6S4c *0 1 

4 .553c  *-02 

405.47 

13 

4 .000E-03 

-1 .780E-0I 

-2.SB0E-0I 

4 . 86BE+0 1 

4 . 550E+02 

4G5 .47 

28 

0 . 000E*00 

-1 .780E-3I 

-2 . B6BE-0 1 

4 . 630E+01 

4 .554E+02 

405 . 47 

21 

4 . 000E-03 

-1 .84SE-6I 

-2 . 740E-0 1 

4 . 6S5E  +  0 1 

4 . 534E*02 

465.47 

22 

1  . 500E-02 

-1 .700E-8I 

-2 .S00E-0 1 

4 . 566E+0 1 

4 .555E*02 

405 . 47 

23 

4 . 000E-03 

-1 .S26E-0I 

-2 .750E-01 

4 . B64E  *0 1 

4 . 556E+02 

405 .47 

24 

2 . 000E -05 

-1 .620E-8I 

-2.S40E-0I 

4 . 875E+0 1 

4 . 60 1 E  02 

405.47 

25 

B.933E-18 

-1 .720E-0I 

-2.620E-GI 

4 . 856E+01 

4 .GB3E’62 

405 . 47 

25 

1  . 400E-82 

-1 .820E-8I 

-2.460E-0I 

4 . 865E+0 1 

4 . B03E .02 

465 . 47 

27 

6 . 020E-03 

-1 .740E-8I 

-2.40BE-0I 

4.8S5E.0I 

4 . 603E+62 

465.47 

25 

2 .8B0E-03 

-1 .660E-0I 

-2.5S0E-0I 

4 . 867E+0 1 

4.B02E+02 

465 . 47 

23 

0 . 008E+86 

- J . 740E-0 1 

-2.S00E-0I 

4.6B3E+0I 

4.BB4E.0Z 

405 .47 

58 

2 . 000E-03 

-1 .360E-0I 

-2.702E-0I 

4.6E4E+0I 

4 . B07E+02 

405.47 

51 

-2.008E-C5 

- 1 . 860E-0I 

-2.S80E-0I 

4 . 873E+0 1 

4 . 606E+02 

405.47 
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TABLE  B3 


.  UPSTREAM  BLADE-TO-BLADE  REDUCED  PROBE 
DATA  FILE  L-4SEPACALC 


SCAN 

FRB 

BETA 

6AMHA 

PHI 

Xvsl 

Xre  f 

POSIT 

1 

9.90 

4 . 240E-02 

9. 1726-02 

-1  . 550E-03 

1  .0926-01 

9.023E-0Z 

2 

.10 

4.252E-02 

9.529E-02 

-3.4456-03 

1 .093E-01 

9. 044E-02 

3 

.29 

4 . 277E-02 

1 .02BE-01 

-7.4836-03 

1 . 096E-0 1 

9.068E-02 

4 

.30 

4.263E-02 

1 .076E-01 

-1.0126-02 

1  .093E-01 

9.06IE-02 

5 

.40 

4.263E-02 

1 .1636-01 

-1.4926-02 

1 .092E-01 

9.057E-02 

S 

.50 

4.283E-02 

1 .1536-01 

-1 .433E-02 

1 .0956-01 

9.09IE-02 

7 

.60  . 

4 .2996-02 

1.2126-01 

-1  .7596-02 

1 .096E-0I 

9.0986-02 

9 

.70 

4 . 306E-02 

1 -276E-01 

-2.1166-02 

1 .0976-01 

9.  1086-02 

9 

.80 

4 . 303E-02 

1 .2756-01 

-2.1 1  IE-02 

1 .C96E-01 

9. 1196-02 

19 

.90 

4.312E-02 

1.2706-01 

-2.08IE-02 

1 .097E-0I 

9. 1136-02 

1  1 

1  .00 

4 . 304E-02 

1 .3016-01 

-2 . 260E-02 

1 . 096E-0 1 

9.12  IE-02 

12 

1  .  10 

4.3206-02 

1.2426-01 

-1 . 923E-02 

1 .099E-0I 

9.  I45E-02 

13 

1.20 

4.316E-02 

1 .226E-01 

-1 .836E-02 

1 . 099E-0 1 

9.1536-02 

14 

1.30 

4.318E-02 

1 . I92E-01 

-1 .646E-02 

1 .099E-01 

9.  1646-02 

15 

1 .40 

4 . 335E-02 

1.1396-01 

-1  .3456-02 

1 .1026-01 

9.  182E-02 

IE 

1  .50 

4 . 358E-02 

1 .087E-0I 

-1  . 056E-02 

1 . 106E-01 

9 . 203E-02 

1  7 

1  .60 

4.353E-02 

1 . 077E-0 1 

-1  .0036-02 

1 . 105E-01 

9 . 203E-02 

18 

1  .70 

4 . 383E-02 

1 .0836-01 

-1  .0296-02 

1 .1096-01 

8.2196-02 

19 

1.80 

4.389E-02 

1 .0176-01 

-6.635E-03 

1 . 1 1  IE-01 

9.233E-02 

29 

1.90 

4 . 375E-02 

1 .04SE-01 

-B.234E-03 

1 . I09E-0I 

9.2296-02 

21 

2.00 

4 . 394E-02 

1 .0606-01 

-9.0346-03 

1.11 16-01 

9.2406-02 

22 

2.10 

4.41 16-02 

1 .0316-01 

-7.3936-03 

1 . 1 14E-01 

9. 2B3E-02 

23 

2.20 

4.4I2E-02 

1 .094E-01 

-1 .087E-02 

1 . 1 I3E-01 

9.2916-02 

24 

2.30 

4.450E-02 

1 .0936-01 

-1 .077E-02 

1 . 1 1  PE-01 

9. 338E-02 

25 

2.40 

4 . 45SE-02 

1 . 133E-0I 

-1 . 297E-02 

1 . 1 18E-01 

9.352E-02 

2S 

2.50 

4 . 457E-02 

1 . I78E-0I 

-1 .546E-02 

1 . 1 1 PE-0 1 

9.3776-02 

27 

2.E0 

4.4666-02 

1 .2426-01 

-1 .9056-02 

1 . 1186-01 

9 . 388E-02 

28 

2.70 

4.4626-02 

1.2506-01 

-1 .949E-02 

1 . 1186-01 

9.38BE-02 

29 

2.80 

4.46  IE-02 

1 .3056-01 

-2 . 263E-02 

1 . 1 17E-01 

9.3976-02 

39 

2.90 

4.4516-02 

1.3486-01 

-2.5076-02 

I.1I5E-0I 

9.39IE-02 

31 

3.00 

4 , 467E-02 

1.3186-01 

-2.3366-02 

1 . 1 17E-01 

9 . 400E-02 

SCAN 

Del 

Vref 

0 

Qref 

MACH 

YAU 

DEG 

1 

2 . 568E+02 

2.1236*02 

1  . 682E  *0 1 

1 . I65E+0I 

2 . 45SE-01 

4.P92E+0I 

2 

2 . 570E  <02 

2. 1 27E*02 

1 .686E*0I 

1 . 1 70E*0 1 

2.4596-01 

4.8706*01 

3 

2.5766*02 

2.1326*02 

1.6956*01 

1 . 177E+01 

2.465E-0I 

4.8676*01 

4 

2 .5705*02 

2.1306*02 

1  .6876  +  01 

1 . 1756*01 

2.4596-01 

4.8656+01 

5 

2 • 5666+02 

2. 1286*02 

1 . 6846*01 

1  . I74E  +  0I 

2.457E-0I 

4.8666*01 

C 

2.5736*02 

2.  I36E*02 

1  .632E10I 

1 .1836*01 

2.4636-01 

4 . 867E  +  0 1 

7 

2.5766*02 

2.  138E*02 

1 .697E+01 

1 .1856*01 

2.467E-0I 

4 . 866E+01 

8 

2.5766*02 

2.  I40E*02 

1  .697E+0I 

1  .  I87E+0I 

2.467E-0I 

4 . 86EE+0I 

9 

2 . 575E  *02 

2.  |43E*02 

1  .696E+0i 

1 .1906*01 

Z.466E-01 

4 . 8E7E  *0 1 

10 

2.5796*02 

2.  I42E*02 

1 .700E  +  0I 

1  .  IB9E  +  0I 

Z.4E9E-01 

4.8666*01 

1  1 

2.5756*02 

2. 143E*02 

1 ,695E*0f 

1  .  1916  +  01 

2.4656-0! 

4 . 866E*0I 

12 

2.5816*02 

2 .1486*02 

1 .704E  +  01 

1 . 1 976*01 

Z.472E-01 

4.8656*01 

13 

2.5816*02 

2. 150E*02 

I.703E+01 

1 . I99E*0I 

2.47IE-01 

4 . 867E+0 1 

14 

2.5836*02 

2.  1S3E*02 

1 .70SE+0I 

1.2026*01 

2.473E-0I 

4.867E+0I 

15 

2 . 509E*02 

2. 1S7E*02 

1 .7156*01 

1 .2076*01 

2.480E-01 

4.8656*01 

IE 

2.5986*02 

2.1626*02 

1  .727E  +  0I 

1.2126*01 

2 . 488E-01 

4.8656*01 

17 

2 . S976  *02 

2.1626*02 

1 . 725E*0t 

1 .2126*01 

2.4876-01 

4 . 867E  +  01 

18 

2.6066*02 

2.1666*02 

1 .737E  +  0I 

1 .2176*01 

2.4956-01 

4 . 864E+0 1 

19 

2.6096*02 

2. 168E*02 

1 . 74ZE  *0 1 

1 . 220E+0I 

2.500E-01 

4 . 866E  *0 1 

20 

2.6056*02 

2.1686*02 

1 . 73SE  *0 1 

1 .2196*01 

2.4956-01 

4.8656*01 

21 

2.6116*02 

2.1716*02 

1 .743E+01 

1.2226*01 

2.5006-01 

4.8656*01 

22 

2.6176*02 

2.1816*02 

1.7516*01 

1 ,234E*01 

2.S06E-0I 

4.8666*01 

23 

2.6166*02 

2. I84E+02 

1 .7496*01 

1 .2366*01 

2.5056-01 

4.8646*01 

24 

2.6296*02 

2.1966*02 

1.7656*01 

1 . 248E*01 

2.516E  01 

4.8756*01 

25 

2.6306*02 

2.1996*02 

1 .7656*01 

1 .2526*01 

Z.517E-0! 

4.8666*01 

2E 

2.6296*02 

2 . 205E*02 

1  .7646*01 

1 .2596*01 

2.5166-01 

4.8656*01 

27 

2.6306*02 

2.2086*02 

1  .7656*01 

1 . 262E+0I 

2.5176-01 

4.8656*01 

28 

2.6286*02 

2.2076*02 

1 .7636*01 

1 . 262E*0I 

2.5I5E-0I 

4 . 867E*01 

29 

2.6266*02 

2.2106*02 

1 .760E+0I 

1  .2646*01 

2.5136-01 

4.8636*01 

30 

2 . 623E  *02 

2.2096*02 

1.7546*01 

1 . ?63E«0I 

2.508E-01 

4.8646*01 

31 

2.6296*02 

2.2116*02 

1.7626*01 

1 . 2S5E*01 

2.S14E-01 

4.8796*01 
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TABLE  B3  (COHT.)*  UPSTREAM  BLADE-TO-BLADE  REDUCED 
PROBE  DATA  FILE  L-4SEPACALC 


SCAN 

Prsf-Pt/Qref 

1 

1 .432E-01 

2 

1 .43BE-01 

3 

1 . 445E-0 1 

4 

1 .449E-0I 

5 

1 .4S9E-01 

G 

1 .473E-01 

7 

1 .43SE-01 

e 

1 .447E-01 

9 

1 .491E-0I 

10 

1 . 459E-01 

1 1 

1 .S02E-01 

12 

1 .SI4E-01 

13 

1 . S53E-0 1 

1  4 

1 .SGIE-01 

IS 

1  .SS7E-01 

16 

1 .56  IE-01 

17 

1 .S49E-0I 

18 

1 . 499E-0I 

19 

1 .52IE-0I 

20 

1 .S44E-0I 

21 

1 .S22E-0I 

22 

1 .S79E-0I 

23 

1 .604E-0I 

24 

1 .G26E-01 

25 

1 .655E-01 

26 

1 .G98E-01 

27 

1 .7I2E-0I 

28 

1 .731E-0I 

29 

1 .762E-0I 

30 

1 .758E-0I 

31 

1 .742E-01 

ENSEMBLE  AVERAGES 


PPAVG  PAAVG  TEMPAVG  XREFAVG  VREFAVG  QREFAVG 

1 . 227E+0 1  40S.47E+00  459.78  9.2I0E-02  2.I65E+02  1 . 2 1 4E  +  0t 


TABLE  B4 .  DOWNSTREAM  BLADE-TO-BLADE  SCALED 
PROBE  DATA  FILE  U-SEPASCL 


SCAN 

PROBE 

i 

2 

3 

4 

5 

6 

7 

1 

POSIT 

0.00 

3.200E-02 

1 .4986*01 

1 . 088E*01 

-5.5846*00 

6.9466*00 

-6.8B0E-01 

-B.920E-0I 

2 

.10 

2.600E-02 

1 .5016*01 

1 .08 1 E  *01 

-5.626E*00 

6.6486*00 

-6 . 700E-0I 

-B.840E-0I 

3 

.20 

3.800E-02 

1.4996*01 

1 .0746+01 

-5 . 6 1 4E*00 

5.9646*00 

-G.440E-0I 

-B.6B0E-0I 

4 

.30 

3.000E-02 

1 .5016*01 

1 .074E*0 1 

-S.602E+00 

5.5046+00 

-6.280E-01 

-E.280E-0I 

5 

.40 

3.000E-02 

1.4986*01 

1 . 0726+0 1 

-5.5766*00 

5.0586+00 

-B . 0B0E-0 1 

-6.080E-01 

6 

.S0 

4.200E-02 

1.4996*01 

1 . 072E*01 

-5.5686*00 

4.7886+00 

-5.940E-01 

-S.940E-0I 

7 

.55 

4.400E-02 

1 .4976*01 

1 . 07 1 E*01 

-5.5506*00 

4.7386+00 

-E.020E-01 

-6. I20E-0I 

e 

.60 

3.600E-02 

1 .5006*01 

1 . 070E  *01 

-5 . 5766*00 

4.7286+00 

-B.000E-0I 

-6. I20E-01 

9 

.65 

4.000E-02 

1 .5016*01 

1 . 068E*01 

-5.5486*00 

4 . 720E  +  00 

-B.340E-0I 

-6.400E-0I 

10 

.70 

4.400E-02 

1.5006*01 

I  .0696*01 

-5. 4906*00 

4.8366+00 

-6.300E-0I 

-6 ■ 5Z0E-0I 

t  1 

.75 

3.600E-02 

1 .5006*01 

1 .0726*01 

-5. 574E*00 

4 . 96BE+00 

-6.300E-0t 

-6 .B60E-0I 

12 

.00 

4.400E-02 

1.4906*01 

1  .0736*01 

-5 . 5B8E  *00 

5.1606+00 

-6.8B0E-01 

-6.740E-0I 

13 

.85 

4.000E-02 

1.5016*01 

1  . 105E*01 

-S. 7846*00 

5.5126+00 

-7.200E-0I 

-7.300E-01 

14 

.  90 

4 . 000E- 02 

1.4996*01 

1 . 128E+0I 

-5.824E*00 

5 . B70E+00 

-7.7B0E-0I 

-7.S80E-0I 

15 

.95 

3.400E-02 

1.5026*01 

1  .  I30E*01 

-5.9266*00 

6.2766+00 

-8.020E-0I 

-7 . 9E0E-0I 

16 

1  .00 

3.200E-02 

1.5006*01 

1 . 156E*0I 

-6 . 006E  *  00 

6 . 660E*00 

-8.020E-0I 

-8 . 260E-0 l 

1  7 

1  .05 

2.800E-0? 

1.5086*01 

1  .  1636*01 

-5 . 972E ♦ 00 

7 . 0G6E  *  00 

-B.220E-0I 

-8.300E-0I 

10 

1  .  10 

4.200E-02 

1.5096*01 

1  . 1 70E*01 

-6.0646+00 

7 . 492E+00 

-B.B8CE-0I 

-8 . 76 BE -0 1 

19 

f  .15 

4.000E-02 

1.5076*01 

1 .1746*01 

-6.1086*00 

7.8226+00 

-B.720E-01 

-8.900E-01 

20 

1.20 

4.400E-02 

1 .5056*01 

1  .  1006*01 

-6. 1 166*00 

8.2146+00 

-B.7S0E-01 

-8.BB0E-0I 

21 

1.25 

3.400E-02 

1 .5046*01 

1  . 1076*01 

-6. M BE *00 

B.550E+00 

-9.020E-0I 

-8.B40E-01 

22 

1.30 

3 . 800E -02 

1 .5036*01 

1 .1906*01 

-6. 1 00E  *00 

8 . 828E  *00 

-8.920E-0I 

-8.8G0E-0I 

23 

1  .35 

4.800E-02 

1  .5036*01 

1  .  1 9 1 E*0l 

-6 . 1 76E  *00 

9.  I30E  +  00 

-8.880E-0I 

-8.9B0E-01 

24 

1.40 

S.600E  02 

1.4996*01 

t  .186E*0t 

-6.1566*00 

9-2386+00 

-9.900E-0I 

-B.820E-0I 

25 

1.45 

4.200E-02 

1 .5006*01 

1 . 192E*01 

-6. 154E*00 

9.4G8E+00 

-8.B40E-0I 

-B.740E-0I 

26 

1.50 

4.600E-02 

1.4906*01 

1  .  1916*01 

-6. 172E*00 

9.6246+00 

-8.540E-0I 

-0  - B80E“0 1 

27 

1.55 

3.600E-02 

1 .5016*01 

1 . 1 97E ♦ 0 1 

-6 . 208E  *00 

9.7406*00 

-8.480E-01 

-B.420E-0I 

20 

1  .60 

S.200E-02 

1 .495? *01 

1 .20IE*0» 

-6 . 230E  *00 

9.790E+00 

-8.500E-0I 

-B.5B0E-01 

29 

1  .65 

4.000E-02 

1.4976*01 

1 . 199E*01 

-6.2006*00 

9.8306*00 

-8. 100E-0I 

-B.300E-0I 

30 

1.70 

4.000E-02 

1.4976*01 

1.2076*0! 

-6.2646*00 

9.8526+00 

-B.240E-0I 

-B.400E-0I 

31 

1.75 

4.200E-02 

1.4986*01 

1.2066*0! 

-6 . 230E*00 

9 . B36E+0O 

-8.140E-0I 

-8.4B0E-0I 

32 

1.00 

4.E00E-02 

1 .497E*0I 

1  .2076*01 

-6 . 334E  *00 

9. 958E+00 

-8.220E-01 

-B. IB0E-0I 

33 

1.85 

4.000E-02 

1.4996*01 

1  .2126*01 

-6.3206*00 

9.9206+00 

-8. I00E-0I 

-B.04BE  01 

34 

1.90 

2.G00E-02 

1 .5006*01 

1.2)56*01 

-6.3766*00 

1.0096*01 

-8. IB0E-0I 

-9. I20E-01 

35 

2.00 

4.400E-02 

1.4976*01 

1 .216E*01 

-6 . 338E*00 

9 . 996E  *00 

-8. 1B0E-0I 

-B.400E-01 

36 

2.0e 

4 . E00E -02 

1 .49S6*0I 

1.2216*01 

-6.3656*00 

9. 989E*00 

-8.200E-01 

-B.480E-01 

37 

2.05 

4.000E-02 

1,4976*01 

1 .22GE*C1 

-6.3686*00 

1.0046*01 

-8. 180E-0I 

-8.420E-0I 

30 

2.10 

4.000E-02 

1.4966*01 

1.2266*01 

-6 . 3486*00 

9.9766*00 

-0. 1B0E-01 

-8  ■  160E-01 

39 

2.15 

4.40CE  02 

1.4966*01 

I .228E+01 

-6.3866*00 

1 .005E*0I 

-8. I20E-0I 

-8. 320E-0I 

40 

2.20 

3.E00E-02 

1.4966*01 

1 .2306*01 

-6 . 442E*00 

1 .0046*01 

-7.980E-01 

-8. IB0E-0I 

i  f 

2.25 

3. 800E-  02 

1.4956*01 

1 .230E  *01 

-6.4586*00 

9.9826*00 

-B.300E-0I 

-8.220E-0I 

42 

2.35 

3.000E-02 

1.4976*01 

1.2306*01 

-6.4326*00 

9. 952E*00 

-8.280E-0I 

-8.340E-0I 

43 

2.45 

4.80eE-02 

1.4946*01 

1 .239E*01 

-64566*00 

9.0126*00 

-8.3B0E-0I 

-0.G00E  01 

44 

2.55 

3.800E-02 

1.4956*01 

1.2406*01 

-6-5126*00 

9.5606*00 

-8.300E-01 

~0 . 3ECE-0 I 

45 

2.65 

2.800E-02 

1 .4966*01 

1.2466*01 

-6.4806*00 

9.3046*00 

-8. I20E-0I 

-8. 16OE-0I 

46 

2.75 

3 . E00E-82 

1.4966*01 

1 .2466*01 

-6.5086*00 

8.8406*00 

-8.50OE-0I 

-8.740E-0I 

47 

2.85 

4 .000E-82 

1 .4936*01 

1  .2406*01 

-6.5066*00 

8.520E*00 

-8.600E-0I 

-8.2B0E-0I 

48 

2.95 

2 . 808E-02 

1.4956*01 

1  .2546*01 

-6.5286*00 

7. 950E*00 

-8. 1B0E-0I 

-8 . 2B0E-01 
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TABLE  B4  (CONT.)-  DOWNSTREAM  BLADE-TO-BLADE  SCALED 
PROBE  DATA  FILE  U-4SEPASCL 


Scan 

9 

9 

iO  M  II 

19 

14 

YAW 

TEMP 

OEB 

(A  1 

i 

-3  .5**661 

-1  .6266>66 

l.332f<ff  -l.7fffiff  E.fBtE'EI 

-6.6666-69 

•6*66*66 

2.6676*60 

4.55  76  *  02 

2 

-3  1666-61 

-9.6666-61 

9. 31  EE « IV  -BI7BE>Bf  - 1  .  IEEE  -  E2 

1  6*66-62 

6.6666-63 

2.6166*60 

4.5566**2 

3 

•M49E-9I 

-t. 7666-61 

1  2E2E-EE  -1. I66E.IE  -I.IEEE  E2 

-69666-93 

-1.6666-62 

26676*06 

4.5556*62 

4 

-3.4666-61 

-1.2466-61 

3. 27IE.EE  -l.im<M  4.EEEE-I3 

6.6666-63 

1. 4666-62 

1 .7636*00 

4.SS66*02 

S 

-3.2466  61 

-6.9266  61 

3- 73SE  >BE  -3.tllE.f8  -I.3EEE-82 

2.6666-63 

-2-6666-63 

1.7576*06 

4.5566*62 

6 

-3.  M6E-6I 

-6.9666  61 

3. 2 1  EE .83  -1. IS4E.EE  -I.2EEE-E2 

-6.6666-63 

-3.6666-62 

2.6646*60 

4.5566*02 

7 

-3  6666-61 

-6626661 

323EE.EE  -1. I7EE<EE  -I.2BEE-E2 

-1.1666-62 

-1.6666-62 

2. 2646*66 

4.5566*02 

• 

-3  3666  61 

-69666-61 

3.23IE.EE  -I. I24E.EE  l.|EEE‘IE 

6.6666-63 

-1.6666-62 

2 .2506*00 

4.5556*62 

9 

-3. 5266-61 

-9.I66E  61 

1. 2E2E.EE  -1. 13SE.IE  -I.2EEE-E2 

-2.1666  92 

-2  2666  67 

2.5516*00 

4.5566*02 

16 

-35**661 

-6S4666I 

3. IEEE. EE  -I.IEEE.EE  -l.||EE-*2 

-4.6666-63 

6.6666*66 

2  6246 *06 

4.5566*02 

If 

-3.6466  61 

-f.4266  f> 

3I4Ef.EE  -E.llfE.EE  -I.IEIE  82 

2.6666-63 

4.666E-63 

2.7686*60 

4 .5566*02 

12 

-36266  61 

-9.6266-61 

3.2S4E.I3  -3.I88E.33  -|  EIBEI2 

-1.466E-62 

-•01*6-03 

2. 7806  *  66 

4.5576*62 

13 

-46466  61 

-t. 6366*66 

I  E5IC.EI  -l.3IK.3f  -f.EEIE  33 

-1 .6666-62 

-1.4666-62 

3. 6266 <06 

4 .5576  *62 

14 

-1.2666  61 

-1.6746*66 

3I32C.EE  -I. 442E.EE  -f.2ffE-E2 

-f  9006  93 

-26666-63 

3.2966*06 

4.5576*02 

IS 

-I.36H  61 

-1.1666*66 

3. 7E2C.EE  -3. 82IE.EE  -I.IEK  83 

-4.6866  63 

-1  6*66-63 

3  2756*06 

4.5576*02 

fl 

-4.4B6E  6 1 

-1.1766*66 

IS52E.EE  -3. IEEE' If  -4.EEEE-E3 

4  6666-63 

-6.66*6  63 

3  5546*66 

4.5596*02 

17 

-4.28*6  61 

-1.9162*66 

3.IS4E.EI  -I.DEE' EE  -t  4EBE  12 

1. 6666-63 

2  6686-63 

3. 5566*00 

4 . SS8E*62 

II 

-4.3266  61 

-1 . 1126*66 

1 .8E7C.fl  -I.7I4E.II  IEEE-13 

-2 . 66 BE  -  63 

-0.0666  03 

3  5106*60 

4.5566*02 

19 

-4.4666  61 

-1.2672*86 

I.3I3C.3I  -I. 7271.33  -7.BFEE  12 

-1.46*6  62 

-1.2666  62 

3-556E  *06 

4.5576*62 

26 

-4.1666  61 

-1.1946*66 

ItllC'fl  -1 .164E  >88  -  t  .  4HE  -12 

-4.6666  63 

2.66*6-63 

3  2946*00 

4.5586*02 

21 

-4.3666-61 

-1.3292*66 

1. 322E.lt  -1 . I82E .88  |  IEEE  13 

4.6666  63 

-4.6686  63 

3.2616*66 

4 .5S7E  *  02 

22 

-4.1666-61 

-1.2142*66 

1  32SC.fl  -3.732E.fE  I.ESSE  E3 

4.6666-63 

-6.06BE-63 

3  2946*60 

4.5586*02 

27 

-39461  61 

-1.2282*69 

IE27E.fl  -i.7IIE.ff  -I.2SIE  E2 

-1.6666  63 

-4.6666-63 

3  2966 ' 60 

4 .SS86  *62 

24 

-3.9266-61 

-1.1746*66 

I.E22CEI  -1, 772HEE  -2.4IEE  12 

-1 .6686  62 

-I.260E  62 

3.2656*00 

4.5596*02 

25 

-3  7666-61 

-1.1782*66 

I.E27EIEI  -1. I2SE.EE  -I.IEEE  32 

-2 .6*06-63 

6.0666  03 

3 . 296E  *60 

4.5596*02 

26 

-3- 5966-61 

-1.1662*66 

1 .E3lf.fl  -1  IS8f.EE  -I.IICE-E2 

-1.6666  62 

-1.2606  62 

3  6236*00 

4  .S596  *02 

27 

-3.4666-61 

-1.(646*66 

IE35f.fl  -f . E2Sf.ff  -4.EEEE  33 

*1. 6666-63 

6.6666*00 

3. 6396*66 

4 .5596*62 

26 

-3  3466-61 

-t. 2182*66 

I  E34f.fl  -1. 139f.fi  -t.IHE  E3 

-1.2666  62 

-I. 2006-62 

3-0416(06 

4  .S58E  *62 

29 

-3  3666-61 

-1.2622*66 

1 .E37f.fl  -1. SS4f.fi  -t.tEff-E3 

-1 .2666-82 

-8. 6666-63 

3.6246*06 

4.5606**2 

36 

-8. 9566-61 

-1.3786*86 

I .E39f.fi  -f.EE2f.lf  -2.2SEE-E2 

-6.6606  63 

-0.0006  03 

30366*60 

4.5596*02 

31 

-2.6466  61 

-1.9522*66 

IE3BE.fl  -I3IEE.EE  -2.4SIE-E2 

-1.2886  62 

-I. 2066-02 

3.6366*60 

4.5586*62 

32 

-J. 7466  61 

-1  3962*66 

IE4SE.fl  -l.37Sf.EE  4.IIEE  S3 

-4  6686  63 

-1  66OE-02 

2.7766*60 

4.5506*62 

33 

-3.9466-61 

-12162*66 

1  E43t<EI  -7.EI2f.EE  Mtff  E3 

-2.6666  63 

6. 6066*60 

2.7726*00 

4  5586*02 

34 

-1.9466-61 

-1. 5442*66 

1 .E44f.it  -l.942f.EE  1 . EE8E-I2 

1.4666  62 

•.6086*66 

2.7026*60 

4.5586*02 

35 

-1.6666  •» 

-1  -5662*66 

IE4lf.fl  -I  3EEf.EE  • I.IEEE  12 

-1  1606  62 

-1.2066  62 

2.7706*00 

4.5596*02 

36 

-1  *6*E  61 

-1.5646*68 

I.E47f«EI  -7.i4Sf.EI  -IIE8E  12 

-3.2666  62 

-0.6606  63 

2.7736*60 

4 . 56  IE  *02 

37 

-3.5666-61 

-1.3792*66 

IES2f.fl  -7.f44f.Ei  I3EEE-83 

-1.4666-62 

-3  266E  62 

2.7616*00 

4.5626*02 

36 

-1.1686  61 

-1.4652*66 

1  ES3f.fl  -7.IS2f.IE  E.fSEf -II 

-4 . 66*6  - 13 

7.666E  63 

2. 7076 *66 

4  5626*02 

39 

-27*66  61 

-1.2622*66 

1 .I54f.fl  -7 .ISSf.ff  *1 ■ SSIE  32 

-I  26BE  62 

-1  0086  62 

2.7716*00 

4.5616*0: 

46 

-3.4586  61 

- 1-3962 *66 

I.ISEE'fl  -7.3SEf.fE  I.IEEE  13 

-6.6*66  63 

-6  6666  03 

27946*00 

4. 5606*  *2 

41 

-2  5466  61 

-1  2492*66 

I.IS7E.II  -7EI8E.ee  4  IEEE  E3 

-2 .60BE-63 

-4.6*06  63 

2  5366*60 

4  5616*02 

42 

-9  2**6  62 

-f  6622*68 

IEE4E.il  -7. IfEE* EE  -f.EEEE-13 

-4  666E  63 

-1.6666  03 

2. $276*06 

4.5616*62 

43 

-1  22*6  61 

-9.6422*66 

1  ESSE. II  -7.II2f.fE  -I.4ECE-I2 

-1  400E  02 

-1.66*6  62 

2.5376*00 

4.5686*62 

44 

-S  3**6  6» 

-9.4722*66 

I.ESBE'II  -7.ISEf.EE  -1  IEEE  12 

-4  660E  63 

-2.6606  63 

2  2576*06 

4.5616**2 

IS 

-2. 12*6  61 

-1.3962*66 

liS9t.fl  -7.IE6f.EE  -4.EEEC  EJ 

-2  6866  63 

-4.0006-03 

2- 2706*66 

1.5686*02 

II 

-3.3466-61 

-1.4862*66 

1 .E7St.fl  -7.7E9E'II  -4.3SCE -33 

-6.6*6E  63 

-1  IB06-62 

2.0276*60 

4.5616*02 

47 

-3. 2166-61 

-1.2942*66 

1 .E7tf.fl  -7. 1S4f <8E  -4 .IEEE - 13 

-6. 6666  63 

-4. 6666-63 

1.7516*60 

4.5616*02 

46 

-3.3666-61 

-1.2762*66 

I.I7K>II  -T.l3Ef.EE  I.EI8E-I2 

-2.0606-63 

-6. 6006-63 

I .7666*66 

4.5616*02 

ATMOS 
PRESS 
<0S  79 
<IS  21 
49S  29 
49S  29 
495  29 
IBS. 21 
<95.29 
IBS. 21 
405- 20 
4BS.2B 
IBS  26 

405.26 
If  5 .26 
IBS. 21 
IBS  2B 
IBS  2B 

165.26 
IBS  26 
IBS. 26 
IBS  26 
IBS. 26 
4B5.2B 
IBS  26 
IBS  26 
IBS. 26 
IBS. 26 
IBS. 26 

IBS  26 
IBS . 26 
465.76 
465  26 
IBS. 26 
405. 20 
IBS. 26 
IBS  26 
IBS. 26 
IBS  26 
465  28 
485  26 
465  26 
IBS  26 
IBS  26 
IBS  26 
IBS  26 
IBS. 26 
405  26 

ies.2* 

465.26 
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TABLE  B5 


DOWNSTREAM  BLADE-TO-BLADE  REDUCED  PROBE 
DATA  FILE  U-4SEPACALC 


SCAN 

Wei 

Vref 

Q 

Qref 

MACH 

1 

I .6736+02 

2. 

032E+02 

7 . 277E+00 

1 . 078E+0 1 

1 . 603E-0 1 

2 

1 .640E  +  02 

2. 

026E+02 

6. 992E+00 

1 .0716+01 

1 .5716-01 

3 

1 .5S0E+02 

2. 

0196+02 

6 . 332E  +  00 

1 .064E+0I 

1 .4956-01 

4 

1 .S04E+02 

2. 

0196+02 

5 . B80E+00 

1 .064E+0I 

1 .440E-0I 

5 

1 .446E+02 

2. 

0I7E+02 

5 . 434E  +  00 

1 . 062E+0 1 

1 . 3B5E-0 1 

6 

1 .409E+02 

2. 

0176+02 

5.  157E+00 

1 .0626+01 

1.3496-01 

7 

1 .4056+02 

2. 

0I6E+02 

5. I30E+00 

1 .06IE+0I 

1 .346E-0I 

8 

1 .403E+02 

2. 

0156+02 

5.1126+00 

1 . 060E+0I 

1 .343E-0I 

9 

1 .406E+02 

2.0136+02 

5. 135E+00 

1 .0586+01 

1 .346E-0I 

10 

1 .423E+02 

2. 

0I4E+02 

5.260E+00 

1 . 059E+0I 

1 .363E-0I 

1  1 

1 .4406+02 

2. 

0176+02 

5 . 3B4E+00 

1 .062E+0I 

1 .379E-0I 

12 

1 . 4G8E+02 

2. 

0186+02 

5.5906+00 

1 .063E  +  0I 

1 .40GE-0I 

13 

1 .SI6E+02 

2. 

048E+02 

5.9746+00 

1 . 095E+01 

1 .452E-0I 

14 

1 .S64E+02 

2. 

068E+02 

6 . 359E+00 

1 . 1176+01 

1 . 498E-0 1 

IS 

1 .6I3E+02 

2. 

0776+02 

6.7S9E+00 

1 . I27E+0I 

1 . 545E-0 1 

16 

1 .65GE+02 

2. 

094E+02 

7. I2SE+00 

1 . I44E+0I 

1 .5866-01 

17 

1 .7006+02 

2. 

1006+02 

7.51  IE  +  00 

1  .1516  +  01 

1 .6286-01 

18 

1  .747E+02 

2. 

1066+02 

7 . 939E  +  00 

1  . 158E  +  01 

1 . 674E-0 1 

19 

1 .780E  +  02 

2. 

1 106+02 

8 . 245E  +  00 

1 . I62E+01 

1 . 706E-0 1 

20 

1  . 0 1 8E  +  02 

2. 

1156+02 

8 . 60 IE  +  00 

1  . 16BE  +  01 

1 . 742E-0 1 

21 

1 .8506+02 

2. 

I2IE+02 

8. 9116+00 

1  .  I75E  +  0I 

1 .773E-0I 

22 

1  .87SE  +  02 

2. 

I23E+02 

9.  ISSE  +  00 

1 . I77E+0I 

1 . 797E-0 1 

23 

1 .903E  +  02 

2. 

12SE+02 

9.4356+00 

1 . I79E+0I 

1 .8256-01 

24 

1 , 9 1 3E  +  02 

2. 

I20E+02 

9.528E+00 

1 . 174E+0I 

1 .834E-0I 

25 

1 .932E+0Z 

2. 

1256+02 

9.7216+00 

1 . I79E+0I 

1 .052E-0I 

26 

1  .945E  +  02 

2. 

1256+02 

9.8556+00 

1  .  I7BE  +  01 

1 .06SE-0I 

27 

1 .954E+02 

2. 

1306+02 

9.9536+00 

1 . I85E+0I 

1 . 6746-0 1 

20 

1 .9S9E+02 

2. 

I34E+02 

9. 99BE+00 

1 . IB9E+0I 

1 . 870E-01 

29 

1 .9606+02 

2. 

I32E+02 

1  .0006  +  01 

1  .  I87E  +  01 

1 .879E-0I 

30 

1 .9G3E+02 

2. 

I39E+02 

1 .004E+0I 

1 . I95E+0I 

1 .8B26-0I 

31 

1.9616+02 

2. 

I38E+02 

1 .002E+0I 

1 . 194E+0I 

1 .8B0E-0I 

32 

1 .970E+02 

2. 

139E+02 

1 .0126+01 

1 . I95E+0I 

1 .889E-01 

33 

1.9666+02 

2. 

1436+02 

1 .007E+0I 

1 .1996+01 

1 .8856-01 

34 

1 .98IE+02 

2. 

146E+02 

1 .023E+0I 

1 .203E+0I 

1 . 900E-0 1 

35 

1 .975E+02 

2. 

I47E+02 

1  .0166  +  01 

1  . 203E+0I 

1 . 893E-0 1 

36 

1 .975E  +  02 

2. 

(5IE+02 

1 .0I6E+0I 

1.2006+01 

1 .893E-01 

37 

1.9796+02 

2. 

I56E+02 

1 .0206+01 

1 .2136+01 

1 .8976-0 1 

38 

1.9736+02 

2. 

1566+02 

I.0I3E+0I 

1 .2136+01 

1 .8916-01 

39 

1 .979E  +  02 

2. 

1586+02 

1.0206+01 

1.2156+01 

1 .897E-0I 

40 

1.9776+02 

2. 

1596+02 

1 .0196+01 

1 .2I7E+0I 

1.8966-01 

4 1 

1.9746+02 

2. 

1596+02 

1 .0156+01 

1 .2176+01 

1 .B92E-0I 

42 

1 .9716+02 

2. 

1666+02 

I .0126+01 

1 .225E+0I 

1 .8906-01 

43 

1.9606+02 

2. 

1 66E+02 

1 .0016+01 

1 .225E+0I 

1 .880E-0I 

44 

1.9386+02 

2. 

I67E+02 

9.7786+00 

1 .2266+01 

1 .857E-0I 

45 

1 .9I2E  +  02 

2. 

I73E+02 

9.5206+00 

1  . 2326  +  01 

1 . 833E-0 1 

46 

1 .875E  +  02 

2. 

1736+02 

9. 1516+00 

1 . 233E+0I 

1 .797E-0I 

47 

1.8446+02 

2. 

1756+02 

8.846E+00 

1  .235E  +  0I 

1 .767E-0I 

48 

1  .7876  +  02 

2. 

I80E+02 

8 . 302E  +  00 

1 .240E  +  0I 

1 .7I2E-01 

49 

1.7626+02 

2. 

1816+02 

8.075E+00 

1 .242E  +  0I 

1 .688E-0I 

YAW 

DEG 

2.0076+00 
2.0I0E+00 
2.007E+00 
I . 763E+00 
I . 757E+00 
2 .004E+00 
2 . 2B4E+00 
2.2S8E+00 
2 . S3 1 E  +  00 
2 . 624E+00 
2 . 788E+00 
2 . 780E  *00 
3 . 0266+00 
3.2966+00 
3 . 275E  <00 
3 . 5546+00 
3 . 5S0E+00 
3.540E+00 
3 . S56E+00 
3 . 294E+00 
3.281 E  *00 
3 . 2B4E  +  00 
3.296E+00 
3 . 285E+00 
3 . 296E+00 
3.023E+00 
3 . 039E+00 
3 . 04  I E  +  00 
3 . 0Z4E+00 
3.036E+00 
3.03GE+00 
2 . 776E+00 
2.772E+00 
2.782E+00 
2.77BE+00 
2.773E+00 
2.78IE+00 
2 . 787E+00 
2 . 77 1 E  +  00 
2 . 7B4E+00 
2.536E+00 
2 . 527E+00 
2.537E+00 
2 . 257E+00 
2 . 270E  +  00 
2.023E+00 
I  .7SIE  +  00 
I  .7EBE  +  00 
I .770E+00 
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TABLE  B5  (CONT.).  DOWNSTREAM  BLADE-TO-BLADE  REDUCED 
PROBE  DATA  FILE  U-4SEPACALC 


SCAN 

PRB 

POSIT 

BETA 

6AMMA 

PHI 

Xvel 

Xref 

1 

0.00 

1 .B53E-02 

8.853E-02 

-4.11  IE-03 

7. 1 48E-02 

8.684E-02 

2 

.10 

1 . 779E-02 

8.983E-02 

-4 . 764E-03 

7 . 008E-02 

8 . 658E-02 

3 

.20 

1 .610E-02 

1 .018E-01 

-1 . I02E-02 

6.671E-02 

8 . 630E-02 

4 

.30 

1 .493E-02 

9.S24E-02 

-7 . 663E-03 

6.429E-02 

8.62BE-02 

S 

.40 

1 .38IE-02 

I.002E-0I 

-1 .043E-02 

6. 181E-02 

8.62IE-02 

6 

.50 

1  .3I3E-02 

1 .070E-0I 

-1 .4I3E-02 

6 . 022E-02 

B.620E-02 

7 

.55 

1 .304E-02 

9.654E-02 

-8.61 9E-03 

6 . 007E-02 

8.6I7E-02 

e 

.60 

1 . 30IE-02 

1 .054E-0I 

-1 .327E-02 

5. 996E-02 

B.6I3E-02 

9 

.65 

1 .307E-02 

1 .042E-0I 

-1  .2S3E-02 

6.0I0E-02 

8.605E-02 

10 

.70 

1 .336E-02 

9.202E-02 

-6. IB4E-03 

6.082E-02 

8.6I0E-02 

1  1 

.75 

1 .369E-02 

1.029E-0I 

-I.IB6E-C2 

6.  I53E-02 

B.622E-02 

12 

.00 

1 .423E-02 

1 .027E-01 

-1  .  I67E-02 

6 . 274E-02 

8 . 624E-02 

13 

.05 

1 .S19E-02 

1 .013E-01 

-1  . 003E-02 

6 . 480E-02 

8 . 752E-02 

14 

.90 

1 .617E-02 

9 . 750E-02 

-8 . 767E-03 

6.686E-02 

8 . 838E-02 

IS 

.95 

1 .7I9E-02 

9.498E-02 

-7 . 432E-03 

6 . 892E-02 

8 . 878E-02 

16 

1  .00 

1 .8I5E-02 

9.660E-02 

-8.275E-03 

7 . 075E-02 

8.947E-02 

17 

1  .05 

1 .9I4E-02 

8.667E-02 

-3. I76E-03 

7 . 263E-02 

0.973E-02 

16 

1 .10 

2 . 027E-02 

8.72SE-02 

-3 . 539E-03 

7 . 466E-02 

B.999E-02 

19 

1.15 

2. I07E-02 

B.6B7E-02 

-3.363E-03 

7 . B07E-02 

9.0I7E-02 

20 

1.20 

2 . 200E-02 

7 . 894E-02 

6 . 477E-04 

7 . 768E-02 

9.036E-02 

21 

1.25 

2.282E-02 

9 . 446E-02 

-7 . 283E-03 

7 . 906E-02 

9.065E-02 

22 

1.30- 

2.346E-02 

8.278E-02 

- 1 . 35  IE-03 

8.0I3E-02 

9.074E-02 

23 

1.35 

2.4I9E-02 

B.302E-02 

-1 .469E-03 

B. I33E-02 

9 . 000E-02 

24 

1  .40 

2 . 443E-02 

7.724E-02 

1 .466E-03 

8. I73E-0Z 

9.059E-0Z 

25 

1.45 

2 . 493E-0Z 

7.8I7E-02 

1 .007E-03 

8. 254E-02 

9.08IE-02 

26 

1  .50 

2 .52BE-02 

7.9I6E-02 

5.13  IE-04 

B.3I0E-02 

9. 077E-0Z 

27 

1  .55 

2.553E-02 

7.892E-02 

6 . 459E-04 

8 . 35  IE-02 

9. I03E-02 

20 

1  .60 

2 . S65E-02 

B.306E-02 

-1 .447E-03 

8.370E-02 

9.11 0E-0Z 

29 

1  .65 

2.566E-02 

8. I08E-02 

-8.475E-04 

B.37ZE-02 

9.11 0E-02 

30 

1.70 

2 . 574E-02 

7.3I9E-02 

3 . 56ZE-03 

8 . 386E-02 

9. I40E-02 

31 

1.75 

2 . 570E-02 

1 .264E-01 

-2 . 334E-0Z 

8.378E-02 

9. I36E-02 

32 

1.00 

2.596E-02 

9 . 390E-02 

-6 . 922E-03 

8.420E-0Z 

9. 139E-02 

33 

1  .85 

2 . 584E-02 

8. 539E-02 

-2.61 9E-03 

B.40IE-02 

9. 156E-02 

34 

1.90 

2 . 625E-02 

1 .247E-0I 

-2 . Z47E-02 

8.467E-02 

9. I70E-02 

35 

1.95 

2.607E-02 

1 .29IE-0I 

-2 . 471E-02 

8 . 430E-02 

9. I72E-02 

36 

2.00 

2.607E-02 

1 .292E-0I 

-2 . 473E-02 

8 . 437E-02 

9.  I09E-02 

37 

2.05 

2.6I7E-0Z 

9 . 404E-02 

-6 . 975E-03 

8 . 454E-02 

9 . 208E-02 

38 

2.10 

2.599E-02 

9. I73E-02 

-S.B21E-03 

8 . 426E-02 

9. 209E-02 

39 

2.15 

2.61 8E-02 

9. I26E-02 

-S.569E-03 

8 . 455E-02 

9.2I8E-02 

40 

2.20 

2.6I3E-02 

9.6Z2E-0Z 

-B.0B3E-03 

8 . 447E-02 

9.224E-02 

41 

2.25 

2.603E-02 

9. I97E-02 

-5.93BE-03 

8 . 432E-02 

9. 222E-02 

42 

2.35 

2 . S97E-02 

1 .400E-0I 

-3.020E-02 

8 . 422E-02 

9 . 252E-02 

43 

2.45 

2.569E-02 

1 . 426E-0 1 

-3. 151 E -02 

8 . 376E-02 

9. 255E-02 

44 

2 . 55 

2.508E-02 

9.057E-02 

-5. 278E-03 

8.278E-02 

9. 259E-02 

45 

2.65 

2.44IE-02 

1.12  IE-01 

-1 .6I9E-02 

8. I69E-02 

9. 282E-02 

46 

2.75 

2 . 345E-02 

1 .098E-01 

-1 .506E-02 

B.010E-02 

9 . 282E-02 

47 

2.85 

2 . 265E-02 

1 .035E-0I 

-1 . IB8E-02 

7 . B77E-0Z 

9. 290E-02 

40 

2.95 

2. I23E-02 

1 .072E-0I 

-1 .374E-02 

7.633E-02 

9.31  IE-02 

49 

3.00 

2 . 064E-02 

1 . I05E-0I 

-1 .547E-02 

7 . 528E-02 

9.31 9E-02 
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TABLE  B5  (CONT.)*  DOWNSTREAM  BLADE-TO-BLADE  REDUCED 
PROBE  DATA  FILE  U-4SEPACALC 


SCAN 

Pref-Pl'Qref 

1 

3.650E-0I 

2 

3.B89E-01 

3 

4.490E-0I 

4 

4  .  c  ’  5E -0 1 

5 

5.33IE-0I 

G 

5.S84E-0I 

7 

5.628E-0I 

8 

5.S33E-0I 

9 

5 . 632E-01 

10 

5.527E-0I 

1  1 

5.4I7E-01 

12 

5.238E-0I 

13 

S.062E-01 

14 

4.834E-0I 

15 

4 . 529E-01 

IS 

4 . 282E-0I 

1  7 

3. 963E-0I 

18 

3.G3IE-0I 

1  9 

3.374E-0I 

20 

3.0G8E-01 

21 

2.B27E-0I 

22 

2.606E-0I 

23 

2.3EIE-0I 

24 

2.232E-01 

25 

2 -076E -01 

26 

1.9376-01 

27 

1 .879E-01 

28 

1 .87IE-01 

29 

1 -822E-01 

30 

1 .8B0E-0I 

31 

1 .BSSE-01 

32 

1 .7706-01 

33 

1 .833E-0I 

34 

1  .  7 1  BE -0 1 

35 

1  .799E-01 

3G 

1 .837E-0I 

37 

1 .B3IE-0I 

38 

1 .883E-0I 

39 

1 .8406-01 

40 

1 .B56E-01 

41 

1  . 902E-0I 

42 

1 .9BIE-0I 

43 

2. 101E-0I 

44 

2 . 306E-01 

45 

2.559E-0I 

46 

2 . 93  IE-01 

47 

3.20IE-0I 

48 

3.700E-0I 

49 

3.9I2E-01 

ENSEMBLE  AUERA6ES 

PPAVG  PAAV6  TEMPAVG  XRErAVG  UREFAUG 

1  .  1 72E*0 1  405.20E+00  455.84  9.007E-02  2.I0BE+02 


QREFAVG 
I . IBCE<01 
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TABLE  B6 


BLADE  SCALED  DATA  FILE  B-4SEPASCL 


FRG6E  DATA  ASSOCIATED  WITH  THE  BLADE  DATA  I 
IN  FILE:  L-4SEFASCL 
SCAN:  31 

SCANIVALVE  PRESS  (INCHES  H2o  > 

FORT 


1 

8 . 060E-03 

2 

I . 487E  +  0  1 

3 

1  -284E+0I 

4 

-3.BI4E+00 

5 

-1 . I34E+00 

B 

2 . 366E-6 1 

7 

B.B66E-6I 

8 

9 . S2SE-0 1 

9 

3.2B0E-6I 

ie 

B . S43E-6  1 

1 1 

3 . 026E-0I 

(2 

S.666E-BI 

13 

1 . 662E+00 

14 

l.645E->00 

IS 

2 .  423E*00 

IE 

2 . 1 82E*00 

17 

1 . 432E+00 

IS 

1 .8!2E*0D 

IS 

2 .33BE+60 

20 

4.02BE+60 

21 

4 . 36BE+00 

22 

7.33BE+6B 

23 

-1 ,924E*6I 

24 

-3 . 4  3BE*0 1 

25 

-3.332E*0I 

2E 

“2 . 3BSE-*0 1 

27 

-2.22IE+0I 

20 

-  1 . 005E  +  0 1 

29 

-  1  . 435E-*0I 

36 

-1 ,364E*0I 

31 

-1 . I65E*BI 

32 

■8 .  B5BE  *00 

33 

-7 .  2G4E  +  66 

34 

-5. 374  E  +C0 

33 

-S.2I4E+60 

36 

-4 , 576E  *60 

3“ 

-4 . 660E  +  06 

38 

-3 . 905E-t00 

33 

-3 . 7 1 6E»66 

40 

-3 . 562E  *00 

41 

-3.254E+60 

42 

"3 . I55E +60 

43 

-7. IB6E-0! 

44 

-9 . 750E  *00 

45 

-3 . 5BSE  *06 

45 

I . B 1 2E*00 

47 

9 . 8S6E-0I 

48 

-2 . B9BE+00 

S  CONTAINED 
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TABLE  B7 


BLADE  REDUCED  DATA  FILE  B-4SEPACALC 


SCANI VALVE  MASS  AVERA6E0  COEFFICIENT 


PORT 

OF  PRESSURE 

4 

2.  I33E-0I 

5 

3.507E-01 

E 

4 . 2B3E-01 

7 

4.612E-0I 

S 

4.BE3E-0I 

9 

4.E4EE-0I 

10 

4.5I5E-0I 

1  1 

4 .  E36E-0 1 

12 

4.5I3E-0I 

13 

4.E9IE-0I 

14 

5. 160E-0I 

15 

S.48IE-0I 

IE 

5.345E-0I 

17 

4.957E-0I 

IS 

S.  USE-01 

19 

S.  463E-0I 

20 

6.367E-0I 

21 

B.854E-0I 

22 

B.20IE-0I 

23 

-6.524E-0I 

24 

-1 .525E+00 

25 

-1 . 460E*00 

26 

-1 . 230E*00 

27 

-8. I71E-0I 

28 

-5.8E9E-0I 

29 

-4. I53E-0I 

30 

-3.092E-0I 

31 

-I .98EE-0I 

32 

-6.60BE-02 

33 

1 .440E-02 

34 

8 . 255E-02 

35 

1 . 247E-0 1 

36 

1 .604E-0I 

37 

1 .B86E-0I 

38 

1 .97IE-01 

39 

2.077E-0I 

40 

2. I95E-01 

41 

2. 333E-0I 

42 

2.3B6E-0I 

43 

3.739E-0I 

44 

-1 .2B7E-01 

45 

2.  I49E-0I 

46 

5.029E-01 

47 

4.E6ZE-0I 

48 

2.531E-0I 
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2 .  RETURN 
j .  Press  LOAD 

4.  Type  INI TELEX  between  quotation  marks.  [The  root 
directory  based  INITFLEX  program  formats  the  disc. ] 

5 .  RETURN 

b .  Press  RUN 

7.  Follow  the  prompts--the  process  takes  a  few 
minutes . 

Once  the  disc  is  formatted,  it  can  be  usea  to  back  up 
riles.  To  ioad  the  root  directory-based  BACKUP  program, 
use  the  tor  lowing  steps: 


1 .  Type  MSI"/" 

2 .  RETURN 
Press  LOAD 

4 .  Type  BACKUP  between  quotation  marks 

b.  RETURN 
.  Press  RUN 

'  .  Press  SELECT .  I  The  arrow  indicator  will  be  at  the 
aesired  position  i.e.,  "Backup  selected  files."] 

5.  Type  /CLASS ICK/DESIRED  SUBDIRECTORY /=: CS80 , 7 00 

9 .  RETURN 

10.  Press  PROCEED.  [Use  arrow  keys  to  move  indicator 
to  flexiole  disc  option.] 

11.  Press  SELECT 

12.  Press  YES.  [Note  the  caution] 

The  backup  process  proceeds  to  completion,  displaying  each 
file  transferred  to  the  flexible  disc.  If  there  are  too 
many  files  for  one  disc,  a  prompt  for  an  additional  disc 


1  b  2 


will  be  displayed.  Note  that  the  files  generated  by  "CALC" 
censure  a  let  of  disc  space.  Upon  completion, 

13.  Press  UNLDTAPE 

14.  Press  DONE 

5.1*  RECOMMENDATIONS 

The  method  of  obtaining  probe  survey  data  can  be 
improved  upon  by  making  changes  to  the  three  main  programs 
and  including  software  additions.  Changes  to  the  programs 
will  provide  higher  quality  data,  reduce  the  chance  of 
erroneous  entries  ana  make  computations  more  efficient. 
Software  additions  will  enhance  data  recovery  and  reduce 
thr  chance  of  mistakenly  deleting  data  files.  Specific 
recommendations  are: 

: .  Improve  the  existing  DVM  error  trap.  Occasional 
surges  in  the  faciiitie's  power  supply  cause  spurious 
"VM  readings .  Spurious  DVM  readings  are  trapped  by  the 
Max a: 1  variable  on  line  91  of  "ACQUIRE"  and  the  IF-THEN 
structure  in  the  subprogram  "Readdvm".  The  existing 
trap  is  adequate  for  Scanivalve  port  readings  but  not 
for  yaw  transducer  readings.  A  separate  Maxdif  value, 
and  incorporation  into  "Readdvm",  is  required  for  the 
yaw  transducer.  Alternately,  a  subroutine  to 

stati stical ly  analyze  and  reject  spurious  DVM  readings 
could  be  added  to  "Readdvm",  [A  more  extensive  but 
permanent  solution  is  to  rectify  the  power  surge 
problem . ] 
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2.  Dynamically  size  the  CALC  array  in  program  "CALC." 
This  is  done  in  "ACQUIRE"  with  the  Rawdat  and  Scaled 
arrays.  Dynamic  sizing  would  reduce  the  amount  of  disc 
space  the  reduced  data  files  from  "CALC" consume . 

3.  Eliminate  the  need  in  "ACQUIRE"  for  scan  number  and 
position  entries  by  the  user  for  each  data  point.  For 
repetitive  surveys  with  a  known  number  of  data  points 
and  probe  displacement  interval,  a  data  file  could  be 
used  to  supply  those  values. 

4.  Combine  "CALC"  and  "LOSS."  The  AVDR  and  loss 
coefficient  could  be  calculated  within  the  structure 
mat  calculates  Cv .  While  this  would  eliminate  one 
program,  it  would  complicate  the  structure  of  "CALC" 
somewhat  and  make  the  structure  more  difficult  for  a 
rev  user  to  grasp. 

5 .  Create  a  subdirectory  for  the  scaled  data  files 
from  "ACQUIRE."  This  would  eliminate  tne  clutter  of 
files  in  the  REDDAT'A  subdirectory,  and  make  the  file 
system  consistent  with  the  distinction  that  program 
"CALC"  makes  between  scaled  and  reduced  data  files.  A 
cluttered  file  system  increases  the  chances  of  losing  a 
valuable  file  during  a  purge.  This  addition  would 
require  change  to  the  MSI  statements  on  lines  130,  374, 
531  and  763  in  "ACQUIRE"  and  line  130  in  "CALC."  A  MSI 
"  CLASS I CK/REDDATA"  would  have  to  be  inserted  before 
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line  I.)-',  tc  allow  access  tc  the  probe  coefficients  file 
stored  in  the  subdirectory  READDATA. 

6.  Develop  a  program  tc  print  a  tabulation  of  the  data 
stored  in  the  scaled  data  files.  This  tabulation 
should  duplicate  the  format  in  "ACQUIRE."  The  program 
can  be  produced  by  appropriate  additions  and  deletions 
to  "ACQUIRE"  since  the  formatted  print  statements 
already  exist.  [See  Chapter  ii.  Ref.  13.] 

if .  FUR  THF  USER  -  SUMMARY  01  PROGRAM  STEPS 

A";  1  commands  except  RETURN  are  executed  by  pressing 
he  set  of  keys  fi  -  f 8  corresponding  to  the  soft  key 
abels  appearing  at  the  bottom  of  the  screen.  RETURN  is 
ne  ke>  found  or  the  main  keyboard . 

The  following  is  a  summary  of  program,  steps: 

i.  i.'VM ,  Scanner  and  Scanivaive  Controller — ON 
2  .  Disc  Drive --ON 

2  .  Disc  Drive  Amber  Lights— EXTINGUISHED 
4.  Computer,  Monitor  and  Printer--ON 
s.  LOAD  "  /  CLASSICK./’PROGS/ ACQUI  RE" 

6 .  RETURN 

7 .  RUM 

3.  Type  raw  data  file  name  for  probe  survey  without 
quotation  marks. 

9.  RETURN 

10.  Type  scaled  data  file  name  for  probe  survey. 

_ ! .  RETURN 
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i z .  Type  atmospheric  pressure  in  inches  Ha. 


. j .  RETURN 

i A .  Press  ONE  PROBE  or  TWO  PROBES 

1 5 .  Type  scan  number  and  probe  position.  For  two  probe 
option,  type  scan  number,  lower  probe  position  and 
upper  probe  position. 

16.  RETURN 

17.  Press  REPEAT  or  RECORD 

[REPEAT  returns  prompt  for  scan  number  and  position 
of  data  point  to  be  repeated.  Record  stores  data  to 
the  file.  ] 

Press  GO  ON  or  END  PRB  DATA 

[GO  ON,  returns  prompt  for  scan  number  and  probe 
position  of  next  data  point.  END  PRb  DATA  terminates 
probe  data  collection.] 

IP.  Press  GO  ON  or  COLLECT 

j  10  ON,  by-passes  blade  data  collection  and  returns 
print  option  prompts  (Step  20;.  COLLECT,  returns 
prompt  for  raw  blade  data  file  name.] 

.  Type  raw  blade  data  file  name 

. .  RETURN 

.  Type  scaled  blade  data  file  name 
c  .  RETURN 

f  .  Press  REPEAT  or  RECORD 

(REPEAT,  repeats  the  blade  pressure  scan 
.  ECGRD,  stores  data  to  the  file.] 

20.  Follow  the  print  option  prompts 

Note  that  this  is  the  only  time  to  obtain  a  hard 
copy  of  the  raw  and  scaled  probe  and  blade  data. 

21.  Press  GO  ON  or  CALC 

[GO  ON,  Terminates  "ACQUIRE”] 
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II 


Mere 
command : 

cr  >.  C  C  U  t  C  S 

2  2 .  Type 


"CALC"  car  oe  executed  later  bv 
'  C  LAS  SICK. /  PROGS  /  CALC"  CALC,  Loads 


CALC"  : 

the  scaled  probe  data  file  name  created  in 


"ACQUIRE. " 
2  3 .  RETURN 


the 

and 


24.  Type  the  probe  calibration  coefficient  file  for  X 
( velocity ) . 

25.  RETURN 

2 6 .  Type  the  probe  calibration  coefficient  file  for 
Pni  i pitch ; . 

2  .  RETURN 

2-.  Press  ONE  PROBE  or  TWO  PROBES 

•  'TWO  PROBES,  wiii  prompt  the  user  tor  tr.e  upper 
* '  ^  2 1 ' £  C3  '  ic.T3t  i  op.  co 6* f  i  c  i  0 p T.  f  1 1 0 s  f  c *r  ^  h  p vi  P <i  i  j 


2  •• ,  Type  the  file  name  for  the  oat-  to  be  reduced 
crorr  the  scaled  data  file.  For  two  probes,  a  second 
scaled  data  file  name  is  required. 


RETURN 


Press  k EDUCE  DAI  A  after  amber  light  quits 


Press  GO  ON  or  BLADE  CD's. 

' GO  ON,  returns  prompt  to  load  "LOSS"  : step  33; 
cp's ,  prompts  for  scaled  blade  data  file  name. 


a  . 

Type  blade  scaled 

data  file  name 

b  . 

RETURN 

c . 

f  ror 

Type  the  file  name  for  the  data  to  be 
•  the  scaled  data  file. 

reduced 

d . 

RETURN 

e.  Type  scan  number 
cf  integration  of 
survey . 

associated  with  lower 
probe  lower  blade- 

limit 

to-blade 

f .  RETURN 


1  r  7 


a.  Type  scan  number  associated  with  higher  limit 
cf  integration  of  probe  lower  blade-to-blade 
survey . 

h .  RETURN 

i.  Press  BLADE  DATA  after  amber  light  quits 
bl inking . 

Press  GO  ON  or  LOSS 


a.  GO  ON  terminates  "CALC".  Note  that  "LOSS"  can 
can  be  executed  later  by  the  command- 

1.  LOAD  "/CLASS I CK/ PROGS/LOSS" 

2.  LOSS,  loads  and  executes  "LOSS" 

b.  Note  that  "LOSS"  requires  upper  and  lower 
probe  blade-to-biade  survey  reduced  data  file 
names .  ] 

1  .  Type  the  lower  probe  blade- to-bi ade  survey  reduced 

oata  file  name . 


3b.  RE i URN 

3<:  .  Type  the  upper  probe  biade-to-biaue  survey  reduced 
data  file  name. 


17 .  RETURN 

j- .  Type  the  scan  number  corresponding  to  the  lower 
limit  of  integration  for  the  lower  probe  survey. 

j->.  RETURN 

40.  Type  the  scan  number  corresponding  to  the  higher 
. imit  of  integration  for  the  lower  probe  survey. 

4 1 .  RETURN 

42.  Repeat  for  upper  probe  survey. 

[Note  that  integration  interval  for  both  upper  and 
lower  probes  must  be  exactly  equal  even  though  the  scan 
number  entries  may  not  be  the  same.] 

43.  Program  "LOSS"  terminates  after  static  pressure 
rise  coefficient,  AVDR  and  loss  coefficient  are  printed 
to  the  screen. 


f 


* 


♦ 
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APPENDIX  C 


PROBE  YAH  ANGLE  REFERENCING 

Two  methods  can  be  used  to  relate  yaw  angle  measured  using 
the  angle  vernier  (or  electrical  equivalent),  to  the  locus  of 
the  leading  edges  of  the  cascade.  Both  make  use  of  a  digital 
precision  inclinometer  which  measures  angles  to  the  horizon¬ 
tal  with  a  resolution  of  0.1°.  A  flat  bar  must  be  attached 
firmly  to  the  probe  shaft. 


C.l  FREE- JET  METHOD 

Step  1  Mount  the  probe  in  the  free-jet  from  the  N  side 
as  shown  in  Figure  Cl (a) . 

Balance  the  probe  pneumatically. 

Read  the  angle  of  the  bar  (to  horizontal)  using 
the  inclinometer  (A^  . 

Step  2  Mount  the  probe  in  the  free-jet  from  the  S  side 
as  shown  in  Figure  Cl (b) . 

Balance  the  probe  pneumatically. 

Read  the  angle  of  the  bar  (to  horizontal)  using 
the  inclinometer  (A2)  . 

Step  3  If  Aq  is  the  angle  of  the  probe  pneumatic  axis 

(P.A.)  to  the  surface  of  the  bar,  and  5j  is  the 
inclination  of  the  free-jet  to  the  horizontal, 
then 

Ai  =  Aq  -  6j 

and 


A2  =  Aq  +  8j. 
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Hence 


\ 


1 


A  -A 
_1 _ l 


J 


Step  4  Mount  the  probe  on  the  cascade  on  the  N  side  as 
shown  in  Figure  Cl  (c)  . 

Read  the  vernier  when  the  bar  is  horizontal  (pB) • 

Then,  the  angle  of  the  pneumatic  axis  to  the 
vertical 

Ppa  -  90  -  A0  . 

Angle  of  the  pneumatic  axis  to  the  normal  to  the 
locus  of  the  leading  edges 

P 1  pa  =  Ppa  -Sb  =  90-Ao-6b. 

Rotate  probe  to  balance  in  the  flow.  Read  the 
venier  (Pf)  . 

The  flow  angle,  related  correctly  to  the  normal 
to  the  locus  of  the  leading  edges,  is  given  by 

P  ®  P 1  pa  +  (Pf  “  Ph) 

=  90°  -  Aq  ~  5b  +  (Pf  _  Ph) 


C.2  LDV  (IN  SITU)  METHOD 

Mount  the  probe  and  balance  at  a  point  where  pi  is  known 
from  LDV  measurements.  Read  the  vernier  (Pfi>  •  Turn  the  bar  to 
horizontal.  Read  the  vernier  (P«) 

then  P'pa  -  Pi  -  (Pfi  -  Ph)  -  (Pi  -  Pfi>  +  Ph 

At  any  other  condition,  the  inlet  air  angle  is  given  by 

P  =  P 1  pa  +  (Pf  “  Ph) 

=  (Pi  ~  Pfi)  +  Pf* 
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a)  From  N.  Side  on  Free-Jet 


c)  From  N.  Side  on  Cascade 


Figure  Cl.  Probe  Angle  Referencing 
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